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PLEASE  ANSWER  THESE  5  QUESTIONS 


YES  NO 


1.  Do  you  have  information  that  must  be  kept  organized  and 
accessible?  . 

2.  Do  you  ever  need  to  perform  statistical  analyses? . 

3.  Would  you  like  to  have  a  tool  that  will  allow  you  greater  flexibility 

in  managing  your  own  or  your  company's  money? . 

4.  Could  you  use  a  mail  list  program  that  will  be  easy  to  use, 

maintain  an  unlimited  number  of  names,  allow  you  great  sorting 
flexibility,  and  even  interact  with  a  word  processor? . 

5.  Do  you  own  or  have  access  to  a  TRS-80  microcomputer? . 

If  you  answered  "yes"  to  any  of  these  questions,  we  can  be  of  assistance  to 
you.  Our  Maxi  Series  of  applications  programs  are  designed  to  give  you  maximum 
versatility  with  a  minimum  of  hassle.  These  programs  were  created  for  business  use, 
but  you'll  find  yourself  using  them  for  personal  applications  as  well. 

Thorough  support  —  Of  course,  each  program  comes  with  in-depth,  user- 
oriented  documentation,  and  is  menu-driven  to  make  it  easy  to  use.  When  necessary, 
the  Maxi  programs  are  compatible  with  each  other,  and,  whenever  pertinent,  are 
interactive  with  the  major  word  processing  and  spreadsheet  programs  published  by 
other  manufacturers.  Also,  we  maintain  a  telephone  support  line  to  provide  you  with 
any  assistance  you  might  require. 
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by  Dale  Kubler 


Maxi  Manager  is  a  remarkable  data  base  manager.  Its  fast 
I  machine  language  sort  complements  its  large  data  storage  capacity. 
'  The  sophistication  of  its  data  entry,  management,  and  printing  capa- 
f  bilities  makes  Maxi  Manager  a  versatile  tool  for  many  applications. 

The  program  now  includes  Maxi  Utility,  which  allows  you  to 
I  rescue  files  on  diskettes  that  have  been  damaged  by  excessive  wear  or 
f  misuse  and  lets  you  expand,  add.  or  delete  fields  from  an  existing  data 
I  base.  Let  the  unmatched  capabilities  of  Maxi  Manager  handle  your 
I  data  management1 

l  Model  I  S  Model  III.  Minimum  1  disk  drive  required  .  012-0196  S149.99 


ftei  Cras  by  Dale  Kubler 


if  *tolf 


(Check  Register  Accounting  System) 

Maxi  Cras  is  a  system  that  will  computerize  check  writing, 
recording  and  analysis  for  business  and  personal  finance.  The  system 
features  223  income  and  expense  accounts,  each  of  which  will  handle 
an  unlimited  number  of  transactions.  Extensive  register  and  report 
printing  capabilities  make  Maxi  CRAS  an  indispensible  tool  for 
managing  money  effectively. 

Model  I A  Model  III.  Minimum  2  drives  required .  012-0145  $99.95 


by  Dale  Kubler 


Maxi  Mail  is  a  powerful  mail  list  management  system  that: 

1.  Is  easy  to  use 

2.  Has  virtually  unlimited  storage  capacity. 

3.  Interlaces  with  the  major  word  processors  to  generate  form 
letters  and  other  text. 

4.  Prints  mailing  labels  up  to  lour  across  in  any  format  desired 

5.  Has  virtually  unlimited  coding  capabilities  with  thirteen  fields  of 
information  for  each  record. 

Maxi  Mail  is  the  most  sophisticated  user-oriented  mail  list 
I  program  available 

|  TR5-50  Model  III  only.  2  disk  drives  required  .  012-0146  $99.95 
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by  David  Wa/orick 


Maxi  Slat  is  the  most  useful  statistical  analysis  package  cn  the 
market  today.  It  was  developed  to  allow  maximum  flexibility  in 
designing  customized  analysis.  Maxi  Stat  handles  the  three  main 
components  of  statistical  analysis: 

t.  Complete  menu-driven  codebook  creation  and  editing. 

2.  Menu-assisted  data  entry. 

3.  User-created  control  files  to  describe  the  statistical  analyses  to 
be  performed  and  printed  out  on  the  variables  of  your  choice. 

Model  I  6  Model  III.  Minimum  2  drives  required  012-0153  $199.95 


Send  $1.00  for  our  16  page  booklet 
“Getting  The  Most  From  Your 
Micro”  All  16  pages  are  packed  with 
Indepth  explanations  and  printout 
samples  from  the  Maxi  Series  of  ap¬ 
plications  programs. 
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Entire  contents  copyright  ®  1983  by 
H  &  E  Computronics,  Inc.  All  rights 
reserved.  Printed  in  the  United  States 
of  America. 

All  correspondence  should  be  ad¬ 
dressed  to:  The  Editor,  H  &  E  Compu¬ 
tronics,  Inc.,  50  North  Pascack  Road, 
Spring  Valley,  NY  10977.  Unaccepted 
manuscripts  will  be  returned  if  ac¬ 
companied  by  sufficient  first  class 
postage.  H  &  E  Computronics  will  not 
be  responsible  for  the  return  of  unso¬ 
licited  manuscripts,  cassettes,  floppy 
diskettes,  program  listings,  etc.  not 
submitted  with  a  self-addressed, 
stamped  envelope.  Opinions  expres¬ 
sed  by  the  authors  are  not  necessarily 
those  of  H  &  E  Computronics,  Inc. 

Material  appearing  in  the  H  &  E 
COMPUTRONICS  MAGAZINE  may 
be  reprinted  without  permission  by 
school  and  college  publications, 
personal  computing  club  newsletters, 
and  nonprofit  publications.  Only 
original  material  may  be  reprinted; 
that  is,  you  may  not  reprint  a  reprint. 
Each  reprint  must  carry  the  following 
notice  on  the  first  page  in  7-point  or 
larger  type: 

Copyright  ®  1983  by  H  &  E  Compu¬ 
tronics,  Inc.,  50  North  Pascack  Road, 
Spring  Valley,  NY  10977. 

Please  send  us  two  copies  of  any 
publication  that  carries  reprinted 
material. 

ADVERTISING  RATES 

Contact  Advertising  Director  for  rate 
card.  Special  discounts  available  for 
multiple  insertions. 

Kevin  Rushalko 

(603)  547-2970 

For  information  about  receiving  copies 
of  COMPUTRONICS  in  quantity 
contact: 

U.S.  and  Canadian  Distributor 
H  &  E  Computronics,  Inc. 

50  North  Pascack  Road 
Spring  Valley,  New  York  10977 
Attention:  Steven  M.  Kahan 
Tel.:  (914)  425-1535 
International  Distributor 
Worldwide  Media  Service,  Inc. 

386  Park  Avenue  South 
New  York,  New  York  1001 6 
Attenion:  Sandra  A.  Joseph 
Cable:  WORLDMEDIA 
Telex:  620430  (WUI) 

Tel.:  (212)  686-1520 


This  has  been  an  exciting  month, 
and  this  issue  contains  some  great 
information  about  new  computers 
and  software,  which  you'll  read 
about  here  and  in  "The  Crystal 
Ball."  We  have  news  and  predic¬ 
tions  about  no  less  than  FOUR  new 
TRS-80  computers  (!),  the  new 
Model  16  operating  system,  and  a 
VERY  important  tip  for  anyone  con¬ 
sidering  the  purchase  of  a  Model  1 6 
(see  "The  Crystal  Ball").  This  month, 
we're  even  excited  about  a  new 
APPLE  computer  — the  LISA  has 
finally  been  unveiled! 

MULTITASKING  ON 
DESKTOP  COMPUTERS 

One  of  the  most  important  fea¬ 
tures  of  the  newest  computers  will 
be  multitasking  capabilities.  This 
feature,  previously  available  only  for 
users  of  large  minicomputers  and 
mainframe  machines,  allows  a  com¬ 
puter  to  literally  do  two  (or  more) 
tasks  at  the  same  time  (or  at  least  it 
appears  to).  The  microprocessor 
(Central  Processing  Unit,  or  CPU) 


$24  per  year  SURFACE  MAIL 
$36  per  year  FIRST  CL4SS  MAIL 

$36  per  year  AIR  MAIL 
$48  per  year  AIR  MAIL 

$3  per  copy  Single  Copies 
$4  per  copy  Single  Copies 


of  your  computer  can  accomplish 
most  tasks  at  fantastically  high 
speeds,  much  faster  than  other 
parts  of  the  system  can  keep  up 
with  it.  Thus,  in  the  ordinary  opera¬ 
tion  of  your  microcomputer,  the 
CPU  spends  most  of  its  time 
waiting  —  it  waits  for  the  operator  to 
input  data,  it  waits  for  the  printer  to 
finish  printing  a  line,  it  waits  for  the 
disk  drive  retrieve  data  from  a  file, 
etc.  Since  there's  so  much  wasted 
"processor  time"  when  running  a 
computer,  it  is  possible  (with  the 
right  operating  system)  to  have  the 
processor  two  or  more  jobs  at  once. 
Whenever  the  processor  has  to  wait 
for  something  while  doing  its  pri¬ 
mary  task,  it  will  then  work  on  a 
secondary,  or  "background"  task. 
For  example,  you  use  a  word 
processor  to  type  a  long  paper  and 
edit  it.  When  finished,  you  have  the 
computer  start  printing  the  paper. 
While  the  printer  is  still  printing, 
you  can  then  start  typing  and  edit¬ 
ing  a  letter  (a  "foreground"  task) 
while  the  computer  continues  to 
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issue  (issue  #56). 
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The  expanding  horizon  of  office  and  home  use  of 
new  communications  and  data  services  tying  smart 
terminals  into  networks  through  telecommunications 
links  makes  the  world  need  a  high  speed  terminal 
program. 

Busy  computers  shouldn’t  have  to  wait  for  data  simply 
because  an  old  fashioned  link  can’t  handle  today 
and  tomorrow’s  telecommunications.  Slow  terminal 
telecommunications  can  stand  the  smart  operator’s 
world  on  its  ear. 

Into  today's  fast  paced  world,  Micro  Systems  Software 
presents  MicroTerm,  the  first  truly  high  speed  terminal 
for  this  inquisitive  world.  Some  computers  can  run 
at  up  to  4800  baud  null-free  (9600  in  some  direct- 
connect  applications). 

MicroTerm  enables  you  to  do  more  in  less  time,  in 
both  ASCII  and  the  new  “error-free”  direct  file  mode. 
Its  unique  Macro-Key  function  allows  you  to  have 
10  user-defined  keys  that  transmit  up  to  64  characters 
at  a  single  stroke.  You  can  even  dial  a  phone  number 
and  transmit  the  buffer  at  a  specified  time  com¬ 
pletely  unattended  by  the  operator. 

And  while  MicroTerm  improves  your  computer’s 
“ears”  by  outperforming  any  other  telecommunica¬ 


tions  terminal  program,  its  low  price  won’t  take  a  bite 
from  your  bit  budget.  It’s  only  $79.95  retail. 

You  can’t  lose  with  MicroTerm’s  features,  performance, 
price,  documentation,  or  support. 

It’s  the  only  terminal  program  enabling  you  to  continue 
operations  in  the  command  mode  while  receiving 
additional  data  through  the  RS232  cable.  And  you 
can  adjust  video  width,  turn  on  the  printer,  open  the 
buffer  and  do  many  other  things  and  then  return  to 
the  terminal  mode  without  missing  a  thing. 

Available  for  the  TRS-80  Models  I,  II,  III,  16,  IBM  PC, 
Zenith  Z-100,  and  Apple  II  computers. 

If  these  advantages  are  what  you  want  in  your  world, 
communicate  with  your  nearest  MicroTerm  dealer. 
For  information  contact:  Micro  Systems  Software, 
Inc.,  4301-18  Oak  Circle,  Boca  Raton,  Florida  33431, 
Telephone  Toll  Free:  1-800-327-8724 
In  Florida  (305)  983-3390 


MICRO-SYSTEMS  SOFTWARE,  INC. 

4301-18  Oak  Circle,  Boca  Raton,  Florida  33431,  Telephone:  (305)983-3390 

Toll  Free  1-800-327-8724 


MAILING 
LIST  SYSTEM 

For  TRS-80*  ^ 

(•Tandy  trademark)  (tOQ  QC 
Model  I  A  III  ^  <J 


•  Simply  to  use,. .even  for  the  novice. 

•  Maintain  virtually  an  infinite  num¬ 
ber  of  disks  all  in  continuous  alph. 
or  zip  order.. .essential  for  large  lists. 

•  Sort  2260  entries  (2  full  40  track 
double  density  disks)  in' only  32K  or 
an  incredible  4640  entries  (2  full  80 
track  disks)  in  only  48K I 

•  Super  fast  sort  by  alph.  or  zip  order 
(8  sec.  for  1000  entries)  . .both  orders 
can  exist  simultaneously  on  disk. 

•  High  speed  recovery  of  entries  from 
disk. ..pulls  inoverll  per  sec! 

•  I ransfer  old  files  to  our  system. 

•  Less  than  5  digit  zips  have  leading 
0's  appended. 

•  Supports  9  digit  zips,  Canadian  zips. 

•  Zip  order  is  “sub-alphabetized". 

•  System  adjusts  to  any  DOS. 

•  Backup  data  disks  are  easily  up¬ 
dated  as  entries  are  created,  edited, 
or  sorted... extremely  useful!! 

•  Optional  reversal  of  name  about 
comma. 

•  Permits  telephone  numbers,  etc. 

•  Prints  on  envelopes  or  on  labels,  1, 
2,  3  or  4  across. 

•  Test  label/envelope  printing  lets 
you  make  adjustments  with  ease. 

•  Master  printout  of  your  list  in  sever¬ 
al  formats. 

•  Selective  printing  by  specific  zips 
or  by  zip  range. 

•  Editing  is  simple  and  fast.. .auto¬ 
matic  search.  Batch  transfer  of 
edited  entries  to  backup  disks. 

•  Provides  for  duplicate  labels. 

•  Deleted  entries  have  "holes"  on 
disk  filled  automatically. 

•  Automatic  "repeat"  feature. 

•  Load  and  "scroll"  through  entries. 

•  Optional  "ATTN:"  line. 

•  Plenty  of  user  defined  fields  with 
various  options  for  simultaneously 
purging  and  selecting  the  printout. 

•  All  0's  in  address  labels  are  re¬ 
place  by  easier  to  read  0's. 

•  Continuous  display  of  numbers  of 
labels/envelopes  printed. 

•  Each  disk  entry  automatically  "re¬ 
members"  how  many  mailings  have 
been  made. 

•  Primarily  written  in  BASIC  for  easy 
modification.. .embedded  machine 
code  for  those  speed  sensitive  areas. 

•  Hardware  requirements:  32K, 
printer,  and  1  or  2  drives. 


Precision  Prototypes 

410-F  East  Roca 
Refugio,  Texas  78377 
512-526-4758 


THE  CRYSTAL  BALL 

News  and  Rumors  of  Interest  to  TRS-80  Owners 


ANOTHER  NEW 
PORTABLE  COMPUTER 

According  to  the  Wall  Street 
Journal  (January  28,  1983),  Tandy 
Corporation  is  coming  out  with  a 
Japanese-made,  five-pound  com¬ 
puter  with  a  full-size  keyboard,  a 
screen  that  can  display  about  a 
third  of  a  page  of  text  and  built-in 
programs  that  enable  the  machine 
to  perform  such  tasks  as  text  edit¬ 
ing  and  record-keeping  the  mo¬ 
ment  it  is  turned  on.  In  addition,  a 
plug-in  package,  much  like  a  video- 
game  cartridge,  is  being  prepared 
to  make  it  possible  for  the  com¬ 
puter  to  do  spreadsheet  financial 
analysis.  The  price  of  the  new  com¬ 
puter  is  expected  to  be  about  $700. 

A  few  notes  of  clarification  about 
portable  computers:  there  are  at 
least  three  different  sizes  of  com¬ 
puters  under  the  general  class¬ 
ification  of  "portable"  computers. 

At  the  small  end  of  the  scale  are 
the  so-called  "pocket"  computers, 
or  "handhelds"  which  look  like  big 
pocket  calculators  (too  big  for  most 
pockets).  These  computers  have  a 
complete  typewriter  .  keyboard  in 
miniature  (which  is  too  small  to 
type  on  with  both  hands)  and  use  a 
one-line  LCD  display  to  show  text 
and  numeric  data. 

At  the  large  end  of  the  scale  are 
the  OSBORN E-sized  desktop  port¬ 
ables,  which  weigh  between  twenty 
and  thirty  pounds  and  have  disk 
drives  and  video  screens  built  in. 
These  machines  are  sometimes 
jokingly  referred  to  as  "sewing 
machine"  computers  because  of 
their  size,  shape  and  weight  This 
type  of  computer  generally  does 
not  have  a  built-in  battery  power 
supply.  (Radio  Shack  will  also  soon 
release  a  portable  version  of  the 
Model  III  computer,  described  in 
our  last  issue.) 

In  the  middle  are  what  are  called 
"notebook"  computers,  which  have 
full-size  keyboards,  but  are  about 
the  size  of  a  big  three-ring  note¬ 
book,  and  can  be  operated  in  your 
lap  anywhere  you  go.  These  com¬ 
puters  usually  have  an  LCD  display 
that  will  show  about  four  lines  of 
text  at  a  time.  Epson  was  the  first 
company  to  heavily  advertise  a 
computer  of  this  type,  and  several 
other  companies  (such  as  Hewlett- 


Packard  and  Teleram)  have  also 
created  very  good  machines. 

The  new  Radio  Shack  computer 
is  also  a  "notebook"  computer,  but 
unlike  previous  lap-sized  portable 
computers,  this  new  portable  has 
full  desktop-computer  power.  The 
new  unit  is  called  the  Micro  Execu¬ 
tive  Work  Station.  Tandy  expects  to 
sell  350,000  of  them  the  first  year. 

The  new  computer  will  run  pro¬ 
grams  written  on  other  Radio  Shack 
computers.  It  can  also  serve  as  an 
appointment  book  and  an  automatic 
telephone  dialer  and  directory.  In 
addition,  it  will  also  be  able  to 
place  calls  to  electronic  informa¬ 
tion  services  (such  as  The  Source) 
and  fetch  and  store  such  data  as 
the  latest  prices  of  stocks. 

The  new  Tandy  computer  seems 
to  be  far  superior  to  the  new  Epson 
and  HewletMt-Packard  computers 
(and  its  list  price  is  lower  too). 

THE  MODEL  II  HAS  BEEN 
REPLACED 

Tandy  hasn't  done  a  good  job 
selling  the  TRS-80  Model  16,  and 
they've  replaced  the  Model  II  with 
the  Model  12.  The  Model  12  ac¬ 
tually  sells  for  less  money  than  the 
Model  II,  and  has  many  more  fea¬ 
tures  (such  as  80K  of  memory, 
which  allowes  the  operating  system 
to  reside  in  the  top  16K  and  leaves 
the  other  64  K  for  your  programs 
and  data).  There's  nothing  wrong 
with  the  Model  16,  but  it's  a  bit  ex¬ 
pensive  for  the  present  market 

Although  it  is  an  excellent  com¬ 
puter,  don't  buy  a  Model  16.  Buy  a 
Model  12  instead.  Then,  when 
you're  ready,  upgrade  the  Model 
1 2  to  a  Model  1 6.  The  price  comes 
out  to  be  just  about  the  same  as  if 
you  purchased  a  Model  16  — but 
the  Model  1 2  has  a  more  advanced 
keyboard  (including  eight  function 
keys),  and  when  upgraded  to  51 2K, 
the  Model  12  will  still  have  more 
empty  slots  available  for  future 
upgrades  than  the  Model  16  has.  If 
you  upgrade  the  Model  12  to  a 
Model  16,  you'll  have  a  better  com¬ 
puter  than  the  regular  Model  1 6.  So 
forget  the  Model  1 6  and  the  Model 
II.  The  Model  12  will  give  you  more 
"byte"  for  your  money. 

continued  on  page  6 
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■CQimrmQNicsi 


THE  COMPUTER  CONNECTION 


Specials  for  You! 


SOFTWARE 


ICPL 


DosAide 


Interactive  Control  &  Programming  Language 

The  best  DATA  BASE  MANAGER  ever  designed 
for  the  TRS-80  MOD  I  &  111 

''Unbelievable  is  the  only  word  to  describe  it.  ” 

•  Menu  Facility 

•  Report  Generation  Facility 

•  Full  Screen  1  /0  Facility 

•  Fully  Interactive  from  Basic  Programs 

ICL  Interactive  Control  Language 
*(113049) . $59.00 

LSO  Library  Support  Option 

*(113046) . $79.00 

*(1 1 3047)  ICL  &  LSO . $99.00 

•product  of  XYZT  Computer  Dimensions,  Inc. 


Ever  need  to  go  from  your  program  to  DOS  without 
losing  data?  With  DosAide  you  just  hit  both  shift 
keys  and  your  memory  is  saved  to  disk  giving  you 
full  DOS  functions  (even  go  to  BASIC)  without 
losing  your  program  data!  For  all  Mod  III  DOS’s. 
(103015) . $24.95 

POWER  DRAW 

Now  you  can  create  those  screen  displays  you  have 
seen  in  other  programs  without  the  need  for  a  video 
map  and  set/reset!  Just  draw  it,  save  it,  and  merge 
it  into  your  program!  Mod  I  &  111 
(113005) . $29.95 

POWER  DOT 

If  you  have  GRAFTRAX  in  your  Epson  and  do 
not  have  POWERDOT  then  you  have  only  half  a 
printer.  Now  create  printer  graphics  from  your 
keyboard  easily!  Mod  I  &  III 
(113006) . $39.95 


HARDWARE 


B.T.  MOD  III  DISK  UPGRADE  KIT 

Put  Disk  Drives  into  your  TRS-80  MOD  III.  Easy 
to  install  with  Photo  Instruction  Manual.  Featuring 
the  Holmes  Disk  Controller  (assembled  &  tested) 
available  with  Hardware  Real  Time  Clock  and 
Battery  built  in.  Software  Clock  routines  included. 

•  40/80  Single/ Double  Density  Support 

•  Dual  Sided  and  8”  Drive  Support 

•  Drives  are  optional 

(203103)  without  clock . $269.50 

(203104)  with  clock . $329.50 

(201583)  8”  External  Drive  Cable .  $29.50 

SPRINTER  I  &  III 

Shift  your  TRS-80  into  high  gear  with  the  Holmes 
Sprinter  clock  speed  up.  Complete  with  48K  of 
NEC  150ns  (fast!)  RAM.  All  you  need  to  break  the 
speed  limit. 

(201576)  Mod  I . $135.00 

(203576)  Mod  III . $135.00 


B.  T.  Enterprise  Dept. 

10B  Carlough  Road 
Bohemia,  N.  Y.  11716 
(516)  567-8155  (voice) 
(516)  588-5836  (modem) 


3M  DISKETTE  PRODUCTS 

Scotch  Brand  Diskette  Products 
Excellent  and  reliable. 

5 '/4”SS/DD  (500451)  . $6.00/2  pk. 

5'/4”SS/DD  (500452) . $27.50/10 

5 '/4”SS/DD  (500455) . $33.50/10 

5  !4  ”  Head  Cleaning  Kit . $24.00/ kit 

8”  SS/SD  (500461) . $28.50/10 

8” SS/DD  (500462) . $33.50/10 

8”  DS/DD  (500465) . $39.50/10 

8” Head  Cleaning  Kit . $26.00/ kit 

EPSON  PRINTER  CARTRIDGES 

Epson  Replacement  Ribbons  Cartridges 

for  MX  70/80  &  FX  80 

Black  (500050) . $5.00ea. 

Red  (500060) . $5.00ea. 

Blue  (500070) . $5.00ea. 

Green  (500080) . $5.00  ea. 

Brown  (500090) . $5.00  ea. 

Epson  Replacement  Ribbon  Carts  for  MX  100 

Black  (500550) . $11.95ea. 


Dealer  Inquiries  Welcome  Orders  Only  > 

Prices  Subject  to  Change  800  645  1165 

N.  Y.S.  Residents  Add  Tax  N  y.  Call  (5 1 6)  567-8 1 55 


B  T.  Enterprises  is  a  division  of  Bi-Tech  Enterprises  Inc. 


American  Express,  Carte  Blanche,  Diners 
Club,  MasterCard  and  VISA  accepted 


a 


NOW  AVAILABLE  FOR  THE 
TRS  80*  Model  II  &  III 
COMPUTERS  and 
PRINTERS  V,  VI,  VII  &  VIII 

Leave  your  computer  set  up  and  ready  for 
instant  access;  provide  protection  for  your 
investment  with  a  custom  designed,  pro¬ 
fessional  touch  for  your  home  or  office. 

The  best  in  its  class,  our  new  concept 
PROTECTIVE  COVERS  were  designed  to  be 
functional  with  the  user  and  observer  in  mind. 

COMPARE  THESE  FEATURES: 

•  protects  against  dust,  dirt  and  surface  scratches 

•  unlike  vinyl,  plastic  or  nylon  covers,  static  electricity  is  not  a  problem 

•  lint  free,  top  quality  broadcloth  (65%  polyester,  35%  cotton)  allows  ventilation; 
minimizes  risk  of  condensation 

•  durable;  washable  —  needs  no  ironing;  maintains  proper  size  and  shape 

•  designed,  manufactured  and  packed  in  U.S.A.;  comes  with  a  warranty  against 
defects  in  material  and  workmanship. 

•  available  in  Cranberry,  Navy  or  Pewter  (each  piped  in  contrasting  color)  to 
compliment  any  decor. 

AN  IDEAL  GIFT:  HELP  KEEP  YOUR  INVESTMENT  LOOKING  AND  PERFORMING  LIKE  NEW! 

—  Custom  Designers  and  Manufacturers  of  Computer  Dust  Covers  — 

*TM  Radio  Shack.  Oiv.  Tandy  Corp.  1982  B.L.&W. 


When  You  Buy  Quality  .  . . 


Protect  With  Quality. 


SHIP  TO:  (Print) 


City 


State _ Zip _ Phone 


□  TRS  80  Model  II 

□  TRS  80  Model  III 


Printers 

□  V  Ovi  Dvil  □  VIII 


Price  of  Items:  $ 

COMPUTERS  $18.00 
PRINTERS  $16.00 


Select  Cilar:  Navy  □  Pewter  □  Cranberry  □ 
MONOSRAMNINQ:  (Add  $6  .00  per  cover,  and  allow  5  extra  days  for 
delivery.  We  cannot  accept  returns  on  monogrammed  items. 


Sand  Chick  or 


PRINT  INITIALS:  Q] 


□  □ 


Shipping  $  1. 00 

Monogramming  $ _ 

(TN  residents  add  * 

6%  sales  tax)  9 - 

TOTAL  | _ 

(Foreign  *  Pay  in  US  Funds) 


Moiay  Order  to:  B.L.  &  W.  -  PO  Box  381076,  Memphis,  TN  381 38-  901-754-4465 


THE  CRYSTAL  BALL 
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GOODBYE  TRSDOS  — 
HELLO  CP/M 

Radio  Shack  is  getting  rid  of 
TRSDOS  and  replacing  it  with 
CP/M.  According  to  our  sources, 
Radio  Shack  will  soon  be  distribut¬ 
ing  its  Model  12  and  Model  16  with 
CP/M  3.0.  As  you  know,  the  Model 
12  comes  with  80K  of  memory  (not 
with  the  64 K  found  on  the  Model 
II).  CP/M  3.0  will  use  that  extra  16K 
to  store  the  CP/M  operating  system, 
thus  leaving  the  entire  remaining 
64K  of  memory  for  your  programs 
and  data.  This  will  make  it  easy  to 
use  every  available  CP/M  program 
on  the  market  (such  as  WordStar 
and  all  those  other  great  programs 
you  have  heard  about  but  been  un¬ 
able  to  use  because  they  only  work 
under  CP/M). 

It  seems  that  CP/M  is  dominat¬ 
ing  the  market.  Just  about  every 
computer  is  being  distributed  with 
CP/M  and  Radio  Shack  has  decided 
to  take  the  plunge. 
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CP/M  3.0  is  the  newest,  most  ad¬ 
vanced  version  of  CP/M.  Older  ver¬ 
sions  of  CP/M  contained  the  entire 
operating  system  within  memory. 
CP/M  3.0  only  stores  the  important 
parts  of  the  operating  system  in 
memory.  If  other  parts  of  the 
operating  system  are  required,  the 
computer  accesses  the  disk  for  the 
additional  instructions.  If  you  don't 
know  that  that  means . .  .  well,  let's 
just  say  that  CP/M  3.0  is  far  supe¬ 
rior  to  and  more  efficient  than  the 
current  versions  of  CP/M  that  can 
be  purchased  for  the  TRS-80  from 
companies  such  as  Lifeboat  As¬ 
sociates  and  Pickles  &  Trout. 

CP/M  3.0  also  adds  some  fantas¬ 
tic  enhancements  to  the  TRS-80. 
For  example,  more  than  one  com¬ 
puter  will  be  able  to  share  the  same 
hard  disk  drives. 

AND  YET  ANOTHER 
COMPUTER  FROM 
RADIO  SHACK! 

Radio  Shack  will  soon  take  the 
Model  III  off  the  market.  It  will  be 
replaced  by  two  new  computers. 

•CQMPlJTRaNICS: 


One  is  the  portable  Model  III  com¬ 
puter  mentioned  earlier.  The  other 
is  a  new  computer— the  TRS-80 
Model  IV.  The  new  Model  IV  will 
be  an  upgraded  Model  III,  with  80- 
track  double-sided  double  density 
diskette  drives,  an  80-column  screen 
and  high  resolution  graphics,  with 
an  optional  built-in  5  Megabyte 
hard  disk  drive. 


BITS  AND  PIECES 

continued  from  page  2 

print  out  your  long  paper  at  the 
same  time  (the  background  task). 
Essentially,  whenever  the  processor 
finds  itself  idle,  it  will  use  the  time 
to  work  on  background  task(s). 
Since  the  processor  may  experience 
thousands  of  idle  moments  each 
second,  all  of  the  tasks  being  ac¬ 
complished  appear  to  actually  be 
running  at  the  same  time. 

A  fully  developed  multitasking 
system  could  be  the  next  big  step 
forward  in  small  business  com¬ 
puters,  and  it  could  make  some 
programs  far  more  efficient.  For  in¬ 
stance,  many  people  have  pur¬ 
chased  software  to  keep  a  schedule 
of  appointments.  This  kind  of 
package  seems  very  useful  at  first, 
but  may  present  problems  to  some 
users.  An  office  which  uses  this  kind 
of  program  may  experience  this 
type  of  scenario:  the  operator  is 
using  the  computer  to  type  a  letter 
when  the  phone  rings.  The  caller 
wants  to  make  or  cancel  an  ap¬ 
pointment.  The  computer  operator 
now  has  to  save  the  text  of  the  let¬ 
ter  on  diskette,  remove  the  dis¬ 
kette  from  the  machine,  put  a  dis¬ 
kette  with  the  appointments  pro¬ 
gram  in  the  computer,  load  and  run 
the  program,  and  then  use  the  pro¬ 
gram  to  enter  the  new  appoint¬ 
ment  in  the  schedule,  or  locate  and 
change  one  already  scheduled.. 
Then,  when  finished,  the  updated 
schedule  must  be  saved  on  disk, 
the  operator  swaps  disks  again, 
loads  the  word  processor,  loads  the 
text  file  of  the  interrupted  letter, 
and  starts  working  on  the  letter 
again.  Two  seconds  later,  the  phone 
rings  again!  As  you  can  see,  the 
operator  will  never  finish  the  letter 
if  the  office  is  busy. 

Enter  the  multitasking  computer: 
the  operator  is  typing  the  letter, 
when  the  phone  rings.  The  caller 

continued  on  page  8 


Attention 

BARGAIN  HUNTERS 

Receive  Hundreds  of  Classified  Ads 
Like  These  Every  Month 


■  FOR  SALE:  InterdatafPeHdnn^ 

7/16  Mini  with  32KB  E,mer) 
Panel,  50A  PVVR  $UDdIv 
HS  tape  reader  interface  fl  S 


^  doub'e  width  charac—  - 

Godard  +*  *  data  W 

mechanisP1  i  year  — ' — JR 

«KIT  H-11/DEC  LSI-11 
32K  Byte  storage,  reader  1 
video  terminal,  complete 
e.  Cost  $4500  assembled,  | 
lit.  Like  new.  Sell  for  $2250. 
1-6677.  2058  Griffin  Rd.,  Ft. 
iale,  FL  33312. 


COMPUTER  AUTOMATION  ALPHA 

1C.  -It.  k-word  core  memory ,kiu 
K.R  Modified  Mod.  ASR33  TTy( 

Manuals,  utilities  assemblers  and 

many  option  boards  -  16  bit  I/O 
Driver,  16  bit  I/O,  AsVn:h  modem 
contr.  64  bit  output,  10  bit  A/D- 
D/A  Fairly  complete  documen- 

I  tation.  Up  and  running  inFortran 

Not  much  more  than  TTY  at  $1000. 

'  Herb  Sauer,  303-494-8724.  ^  .  , 


FOR  SALE:  Heath  H9  video  ter-  ■ 
minal,  excellent  condition,  $175  or  ■ 
'goffer.  You  ship.  [214]  962-4484  m 

memory  board  without  memory  1 
(^assembled  or  not  working)  M 


COMPUTER  SHOPPER,  the  new  buy.  sell,  and  trade 
publication,  is  ready  to  help  you  with  the  latest  infor¬ 
mation  on  personal,  small  business  and  large-system 
computers,  accessories  and  software. 

Each  ad-packed  issue  is  full  of  bargains  you  are 
looking  for.  Included  are  ads  from  individuals 
throughout  the  United  States  who  are  selling  their 
good,  pre-owned  equipment  just  so  they  can  trade-up 
to  new  equipment  coming  on  the  market. 

But,  COMPUTER  SHOPPER'S  bargains  won  t  be 
yours  unless  you  subscribe.  This  useful,  money¬ 
saving  publication  can  become  your  way  to  com¬ 
municate  with  other  buyers,  sellers,  and  traders  all  over  the  nation. 

Whether  you  are  a  hobbyist  or  a  part-time  user,  COMPUTER 
SHOPPER  will  put  you  in  touch  with  the  nationwide  computer 
marketplace  in  time  for  you  to  take  advantage  of  bargain  oppor¬ 
tunities. 

Have  something  to  sell?  A  COMPUTER  SHOPPER  subscriber  pro¬ 
bably  wants  to  buy  it 

Looking  for  a  part,  component  or  even  a  complete  system?  A 
COMPUTER  SHOPPER  subscriber  probably  wants  to  sell  it. 

COMPUTER  SHOPPER  is  THE  marketplace  for  anything  in  com¬ 
puters  and  is  read  by  thousands  of  people  who  are  ready  to  buy. 

COMPUTER  SHOPPER  offers  a  unique  format  in  which  classified 
ads  are  categorized  for  fast  location  of  specific  items.  Combining 
this  with  low  individual  ad  rates  —  12  cents  a  word  — 


makes  it  the  ideal  place  for  buyers  and  sellers  to  com¬ 
municate.  And,  its  mix  of  individual,  dealer,  and 
manufacturer  ads  enable  subscribers  to  find  what 
they  want  at  the  best  price  possible. 

COMPUTER  SHOPPER  will  work  for  you  in  other 
ways.  too.  If  you  are  just  thinking  about  getting  into 
computers,  it  can  help  you  learn  product  availability 
and  prices  before  you  make  a  decision.  And.  through 
the  timely  ads,  COMPUTER  SHOPPER  will  keep  you 
abreast  of  changes  in  the  market  which  could  create 
bargain  opportunities  for  you. 

BUT  COMPUTER  SHOPPER  cannot  work  for  you  unless  you 
subscribe. 

Want  to  look  us  over  first?  We  ll  give  you  your  first  issue  FREE 
and  then  bill  you  for  the  next  12  If  you  are  not  convinced  COM¬ 
PUTER  SHOPPER  suits  your  needs,  just  write  "cancel"  on  the  in¬ 
voice  and  return  it. 

And.  to  let  COMPUTER  SHOPPER  start  working  for  you  right  now. 
with  a  paid  subscription  we  ll  also  give  you  a  FREE  classified  ad  to 
sell  your  pre-owned  equipment  or  to  find  equipment  you  want 

If  you  don't  need  to  use  the  free  classified  ad  now.  use  it  anytime 
during  your  subscription 

Subscription  $1 0/year.  12  issues  plus  your  first  free  one.  Bank 
cards  accepted.  Money  back  guarantee 


The  Nationwide  Marketplace  tor  Computer  Equipment 

CamPUTBR  SHOPPBR 


/jr=y  PO  Box  23  •  Titusville.  Florida  32780 
®  Telephone  305-269-3211 

MasterCharge  or  VISA  orders  only,  call  TOLL  FREE  800-327-9920. 


FOR 

H©DEL  OD  ft  Hi’i 

only 

using  PROFILE  II  or  If 

U  Do  you  need  access  to  PROFILE  ll  or  IF 
data  files??? 

[£]  Do  you  need  to  restructure  your  2000 
entry  data  file??? 

®  Do  you  want  to  interface  other  programs 
to  use  PROFILE  data??? 

If  you  can  answer  YES  to  two  out 
of  these  three  questions  you  need 

FOELDEIRL.^SS®® 

Remove  deleted  records  from  your 
profile  data  to  free  up  wasted  space  with 

Id) /ft  f?^|V7E[R) 


SWAYBACK  SOFTWARE 

Box  1351,  Merchantville,  NJ  08109 
(609)  778-0811 

more  information  upon  written  request 
or  call 


The  Banner  Machine© 

•  For  the  TRS-80  I  &  III  with  32K  tape  or  48K.  disk 

•  For  use  on  the  Epson  MX-80  with  Graftrax 

•  Uses  dot  graphics  instead  of  TRS-80  block  graphics 

•  Menu-driven  program 

•  Operation  similar  to  a  word  processor 

•  Makes  signs  up  to  10"  tall  by  any  length 

•  10  sizes  of  letters  from  3/»"-8"  high 

•  Mono  or  proportional  spacing 

•  Automatic  centering;  Right  and  left  justifying 

•  Makes  borders  of  variable  width  up  to  3/i" 

Order  The  Banner  Machine©  —  $49.95  from 

Virginia  Micro  Systems  ■■■■ 

Virginia  13646  Jeff  Davis  Highway  hSh 

Micro  Woodbridge,  Virginia  22191 

LfllUlJ  Phone  (203)  491-6502  13 


TRS-80  MODEL!  ™ 
GOLDPLUG  -  80 

Eliminate  disk  re-boots  and  data 
loss  due  to  poor  contact  problems 
at  card  edge  connectors.  The 
GOLD  PLUG  -  80  solders  to  the 
board  card  edge.  Use  your  ex¬ 
isting  cables. 

CPU/keyboard  to 

expansion  interface . '.  .  .  .  $18.95 
Expansion  interface  to  disk,  prin¬ 
ter,  RS232,  screen  printer 

(specify) . $9.95  ea 

Full  set,  six  connectors.  .  .  $54.95 


EAP COMPANY 
P.0.  Box  14,  Keller,  TX  76248 
(817)498-4242 
*TRS-80  is  a  trademark  of 
Tandy  Corp. 
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wants  to  make  an  appointment.  The 
computer  operator,  by  touching  a 
couple  of  keys,  causes  the  letter  to 
vanish,  and  the  appointment 
schedule  instantly  appears.  The 
operator  quickly  updates  the 
schedule,  says  goodbye  to  the 
caller  and  hangs  up.  Then,  just  as 
quickly,  the  appointment  schedule 
disappears,  and  the  letter  reap¬ 
pears,  ready  to  be  completed. 

Advanced  systems  can  allow 
users  to  do  many  tasks  at  the  same 
time,  interrupting  one  program  to 
use  another,  and  then  returning  to 
the  first  program  — at  the  same 
point  where  you  left  it.  The  com¬ 
puter  runs  both  programs  at  the 
same  time.  An  exciting  example  of 
this  type  of  computer  is  APPLE'S 
new  LISA  computer,  described  be¬ 
low.  After  all  this  time,  APPLE  seems 
to  have  finally  introduced  a  machine 
that  even  we  die-hard  TRS-80 
lovers  can  get  excited  about! 

In  some  cases,  desktop  systems 
will  support  more  than  one  opera¬ 
tor— the  perfect  example  being 
Radio  Shack's  TRS-80  Model  16, 
which  may  be  attached  to  two  addi¬ 
tional  data  terminals.  Three  opera¬ 
tors  can  work  at  the  same  time  on 
this  system,  reading  data  from  the 
same  disk  files,  sharing  a  printer, 
etc.,  all  working  with  the  same 
microprocessor  (the  68000)  in  the 
Model  16.  The  biggest  news  about 
the  Model  16  is  that  the  Xenix 
operating  system,  which  will  allow 
multi-user  operation,  is  now  finally 
available  (see  below). 

TRS-XENIX  OPERATING 
SYSTEM 

The  TRS-80  Model  16  is  finally 
.ready  to  become  one  of  the  most 
powerful  computers  available  for 
businesses,  and  all  of  Radio  Shack's 
competitors  are  going  to  have 
trouble  sleeping  at  night  once 
people  start  installing  these  systems 
—  no  other  company  in  the  in¬ 
dustry  offers  so  much  for  so  low  a 
price,  and  if  word  gets  around  that 
the  system  is  as  versatile  and  easy 
to  use  as  Radio  Shack  says,  then 
every  other  company  will  be  scram¬ 
bling  to  develop  multi-user  systems. 
(SPECIAL  NOTE:  for  a  hot  tip  on 
why  you  should  not  buy  a  Model 
16  now,  see  this  month's  "Crystal 
Ball"  department,  and  read  about 


the  new  TRS-80  Model  12!) 

The  big  news  is  that  the  real 
Model  16  operating  system  is  now 
finally  available.  The  TRS-XENIX 
operating  system  is  based  on  West¬ 
ern  Electric's  UNIX  system  — which 
many  people  feel  will  be  the  new 
standard  operating  system  for  the 
future,  eventually  displacing  CP/M. 
TRS-XENIX,  created  by  Microsoft,  is 
not  just  a  "UNIX-like"  operating 
system,  it  actually  is  UNIX,  written 
for  the  TRS-80  Model  16.  The  really 
exciting  big  feature  of  this  system 
(and  the  Model  16)  is  it's  multitask¬ 
ing  abilities.  The  TRS-XENIX  system 
will  allow  the  connection  of  two  of 
Radio  Shack's  DT-1  data  terminals 
to  the  Model  16,  so  that  three 
operators  may  simultaneously  use 
the  system  for  different  tasks,  all 
using  the  Model  16's  microproces¬ 
sor,  and  accessing  the  same  files,  all 
at  the  same  time  under  the  XENIX 
system.  Originally,  reports  showed 
that  a  complete  three-user  system 
(consisting  of  a  Model  16  with 
256K  of  main  memory,  two  DT-1 
terminals  and  an  8.4  Megabyte 
Hard  Disk  drive)  would  cost  about 
$16,000.  Now,  Radio  Shack  is  ad¬ 
vertising  this  system  for  only  $10,391 
(see  the  impressive  full  page  ad  on 
p.  21  of  The  Wall  Street  Journal , 
January  12).  If  you  were  to  pur¬ 
chase  a  system  with  similar  capabili¬ 
ties  from  IBM,  it  would  cost  more 
than  $30,000. 

Multi-user  capability  is  one  fea¬ 
ture  that  all  computers  will  even¬ 
tually  have  to  provide  to  stay  com¬ 
petitive  in  selling  small  business 
computers.  Here's  Radio  Shack's 
scenario:  "Think  of  the  possibilities. 
Your  sales  department  could  check 
inventory  levels  while  someone  in 
accounting  updates  your  general 
ledger— at  the  same  time  some¬ 
one  else  is  working  on  payroll!" 
(And  they  all  work  using  files  on  the 
same  hard  disk  drive.)  "All  multi¬ 
user  programs  for  accounting  and 
inventory  will  be  available  in  the 
coming  weeks  .  .  .  plan  on  seeing 
progam  for  word  processing,  elec¬ 
tronic  filing,  and  ...  a  new,  second 
generation  electronic  spreadsheet 
from  Microsoft . .  .  the  ultimate  tool 
for  forecasting  and  modeling.  It's  so 
good,  it  was  recently  selected  as  In- 
foWorld  magazine's  1982  Software 
Product  of  the  Year," 

A  free  brochure  on  the  TRS- 
XENIX  system  and  the  Model  16  is 
available  upon  request  from  Radio 
Shack,  Dept.  83-A-662,  1300  One 
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Tandy  Center,  Fort  Worth,  Texas 
76102. 

APPLE  INTRODUCES  THE 
LISA 

Apple's  most  ambitious  com¬ 
puter  has  finally  been  released,  and 
the  entire  industry  anxiously  waits 
to  see  what  the  response  of  con¬ 
sumers  will  be.  The  Lisa,  by  far  the 
most  expensive  Apple  at  just  under 
$10,000,  has  features  associated 
with  even  more  expensive  com¬ 
puters. 

Using  an  approach  similar  to  the 
Xerox  Star  System  or  other  com¬ 
puters  which  use  variations  of  the 
"Smalltalk"  language,  the  Lisa  uses 
very  high-resolution  graphics  to 
create  a  picture  of  a  desktop  on 
screen,  with  symbols  (or  "icons") 
that  represent  file  folders,  disk 
drives,  a  wastebasket  and  other 
familiar  office  equipment  The 
operator  uses  a  "mouse",  which  is  a 
handheld  cursor-movement  device, 
to  place  a  cursor  on  one  of  the 
symbols  and  select  a  particular 
operation.  For  example,  you  can 
move  a  cursor  to  indicate  a  file 
folder,  and  a  cooresponding  data 
file  is  then  opened  for  your  access. 

Information  from  many  different 
sources  is  mixed  on  screen  all  at 
the  same  time  with  "windows"  — 
groups  of  simultaneous  overlapping 
displays  which  can  be  opened  and 
moved  around  on  screen.  An  impor¬ 
tant  feature  of  this  kind  of  system  is 
that  numeric  data,  graphics  and  text 
can  be  passed  back  and  forth  be¬ 
tween  many  different  types  of  pro¬ 
grams— for  instance,  data  from  a 
spreadsheet  program  can  be  used 
to  generate  graphs  which  can  then 
be  used  by  a  word  processing  pro¬ 
gram.  Many  people  predict  that  this 
type  of  system  will  be  the  new 
"wave  of  the  future"  in  small  com¬ 
puters,  introducing  a  new  era  in 
which  people  can  deal  with  com¬ 
puters  in  more  human  terms,  in¬ 
stead  of  having  to  learn  all  kinds  of 
special  codes  to  put  computers 
through  their  paces. 

The  Lisa  includes  a  12-inch  high- 
resolution  black  and  white  monitor 
(720  by  364  pixels),  one  Megabyte 
(I)  of  main  memory  (that's  1000K 
of  RAMI),  two  1.7  Megabyte  floppy 
diskette  drives,  a  built-in  5  Megabyte 
hard  disk  drive,  a  typewriter-style 
keyboard  with  10-key  numeric  key¬ 
pad,  and  a  computer  mouse. 

One  reason  for  the  high  price  tag 


is  the  inclusion  of  a  lot  of  software 
with  the  Lisa  package  (everyone  is 
learning  something  from  Osborne, 
the  first  company  to  package  stand¬ 
ard  software  with  every  computer 
sold).  With  the  Lisa  comes  LisaCalc 
(a  VisiCalc-like  spreadsheet),  Lisa- 
Write  (word  processor),  LisaGraph 
(to  graph  data  from  LisaCalc), 
LisaDraw  (a  graphics  package),  Lisa- 
List  (a  database  system),  and  Lisa- 
Project  (a  project  management  sys¬ 
tem).  The  Lisa  will  also  run  the 
BASIC,  COBOL  and  PASCAL  lan¬ 
guages  and  will  be  able  to  run 
Microsoft's  new  XENIX  multi-task¬ 
ing  operating  system. 

MAKING  MONEY  WITH 
YOUR  COMPUTER 

Anyone  who's  ever  wanted  to 
start  their  own  part-time  business 
will  appreciate  this  encouraging  and 
realistic  look  at  how  a  personal 
computer  can  become  the  basis  of 
a  successful  home  money-making 
enterprise.  The  authors  give  33  in¬ 
novative  computer  ideas  ranging 
from  lost  pet  services  to  roommate 
referrals,  from  direct  mail  advertis¬ 
ing  to  personal  investment  analysis, 
from  a  unit  comparison  shopping 
service  to  novelty  publications, 
from  a  computerized  babysitting 
listing  to  church  record-keeping, 
from  biorhythm  charts  to  computer 
music.  And  that's  just  the  begin¬ 
ning  for  an  imaginative  self-starter. 

We  have  seen  at  least  three  or 
four  of  these  "using  a  computer  to 
make  money  books"  over  the  past 
several  years.  This  seems  to  be  the 
best  of  them  and  it  is  worthwhile 
reading  if  that's  what  you  are  set¬ 
ting  out  to  do. 

There  are  plenty  of  helpful  hints 
on  advertising  services  — including 
tips  on  how  to  write  response-pull¬ 
ing  ad  copy,  how  to  handle 
newspaper  advertising,  and  tips  on 
developing  and  keeping  customers. 

Making  Money  With  Your  Micro¬ 
computer  was  written  by  Robert  J. 
Traister  and  Rich  Ingram  and  pub¬ 
lished  by  TAB  BOOKS  INC.,  Blue 
Ridge  Summit  PA  17214  (717)  794- 
2191.  The  price  is  $7.95.  (It's  not 
available  through  H  &  E  Com- 
putronics,  Inc  but  it  is  available 
through  local  computer  book  stores 
or  by  calling  the  telephone  number 
above) 
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★  FREE  SHIPPING  ★ 

Within  Continental  48  States 


MORE  MAXI’S 

MANAGER  W/Utility  (B.0).  .$119.95 

MAXI  UTILITY . $44.95 

MAXI  CRAS  Mod  l/lll . $84.95 

MAXI  MAIL  Mod  III ...  . $84.95 

MAXISTAT  Mod  l/lll . $179.95 


LAZYWRITER  Mod  l/lll . .  $159.95 
NEW  SCRIPT  7.0  Mod  i  or  in  $114.95 
LDOS  — Ver.  5.1  Mod  I  or  III .  $114.95 
DOSPLUS  -  3.4S/3.4D/3.4III  $119.95 
MULTIDOS  -  Improved  Version  $84.95 
G  EAP-$42.95 -W/Dot  Writer  1.5  $84.95 
SUPERUTILITY  +  w/Backup  $59.95 
DATA-WRITER  20  New  V.  l/lll  $129.95 


LNW  EXPANSION  II. ....  $875.00 


Auto  dial/Ans. 
Mod  l/lll 


LYNX  $239.95 


c.  nroH  prowriter-$499.oo 

Parallel  Printer  120  CPS  10"  carriage 


LNW-Doubler  5/8 

Includes  Dosplus  3.4D $205.95 


RIBBONS 

ZIP  BOX  RELOADS  V,  oi  Dz 

Epson  MX  70/80-20  Yds . 24.00  4200 

Epson  MX  100-30  Yds . 30.00  5200 

NEC/Prowriter . 21 .00  3&00 

Centronics  730/737/739/779  or 
LP-l/ll/IV-16Yds . 1200  3200 

All  ZIP  BOXES  are  individually  sealed  black  nylon  and 
require  no  rewinding.  Epson  Reloads  also  available  In 
red,  blue,  brown,  green  &  purple.  Any  mix  allowed. 

CARTRIDGES  Each  Dozen 

Epson  MX  70/80  .  8.95  90.00 

LP-lll/V  . . 6.50  70.00 

Centronic  702/03/04/53 . 11.00  120.00 

RS  DSY  WHL II  Multi  strike . 6.50  70.00 

Diablo  Hytype  1 1  Multi  strike . 6.50  70.00 

Qume-300,000  chr  Multi  strike  . . .  6.50  70.00 

Nec  SPIN  H-Yield  Multi  strike _ 7.00  75.00 

MCRLNE  80/82A/83A  Spl . N/A  24.00 

Minimum  order  3  cartridges  -  any  mix.  For  smaller 
quantities  add  $1.50  per  order.  All  our  reloads  and 
cartridges  are  manufactured  by  one  of  the  oldest  and 
most  reputable  ribbon  Mfg's.  in  the  country. 

*****  * QUAUTYGUARANTEED  *  ***** 


SEE  OUR  EXPANDED  ADS  IN 

80  MICROCOMPUTING 

SEND  FOR  YOUR  FREE  CATALOG. 


ORDERING  INFORMATION 

No  credit  cards  at  these  low  prices.  Add  $2.00  on  all 
COD  orders.  Certified  Ck/MO/COD  shipped  immedi¬ 
ately.  Please  allow  2  weeks  for  personal  checks.  For 
extrp  fast  sen/ice  phone  In  your  COD  order.  Free  ship¬ 
ping  within  Continental  48  states  via  UPS  ground.  For 
Canada,  Hawaii,  Alaska,  applicable  shipping  and  in¬ 
surance  charges  apply.  Prices  subject  to  change  with¬ 
out  notice.  New  York  State  residents  please  add 
appropriate  sales  tax. 

The  items  listed  above  are  a  cross-section  of  our 
product  line.  We  carry  the  full  line  of  most  companies 
listed  in  the  ad,  plus  much  more.  SEND  FOR  YOUR 
FREE  CATALOG. 


146-03  25th  Road,  Dept.  C 
Flushing,  New  York  11354 
(212)445-7124  10^P.M; 


Mon-Fri 
10  A.M.-9  P.M. 
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model  IE 


eaann  code 
mEmrsT 

H  memory  tEBt  pragrarp  far  the  [Tladel  IE  in  5 
versions  1SB-5SE-3BU  -  SJ5  K  S  HLLTE5T. 
Tests  eBch  byte  37  different  mays. 

Detects  bad  memory  before  your  warranty 
expires  or  your  programs  crash  due  to  bad 
memory  chips 

LDW  PRICED 

SI.IS"  Tests  any  1  memory  size  [specify  size] 
33. SS'  RLLTE5T  mill  detect  and  test  whatever 
memory  size  the  machine  has 

'fttii  iu  1  mo  sHirn* 

commiNG  sodn  masTER  maiL  a  super 
CAPACITY  5UPER  FEATURE  fllRILING  LI5T 
PPDGRam  FDR  THE  ITIDOEL  IB 

CUSTQm  CDmPUTER  PRGGRamS  FDR  THE 
[T1QDEL5  1-e-lE  CHLL  FOR  DETAILS 


BD  CDmPUTER  SERVICES  £ 

B3U  LQI5  UR  WILLIRm5TDUJN  NJ  DBOSU  J 

G03-75B-3S57  * 

* 

visa  a  masiER  crrd  welcditie  * 

***************************************** 


4  MHz 

FOR  THE 

MOD  3 

PC  BOARD  &  DOC.  ONLY  $19.95 

THIS  EASY  TO  INSTALL  KIT  WILL 
DOUBLE  THE  SPEED  OF  YOUR  MOD¬ 
EL  III  COMPUTER. 

COMPLETE  KIT  $49.95 

ASSEMBLED  &  TESTED  $99.95 

CALL  OR  WRITE 
J.E.S.  GRAPHICS 
P.O.  BOX  2752 
TULSA,  OK.  74101 

PHONE  19181  742-7104 


BITS  AND  PIECES 

continued  from  page  9 

ELECTRONIC 

ENCYCLOPEDIA 

A  computerized  version  of  the 
World  Book  Encyclopedia  is  now 
available  through  the  CompuServe 
Information  Service.  This  project  is 
intended  to  test  the  feasibility  of 
this  type  of  service,  and  enables 
computer  users  to  search  through  a 
listing  of  more  than  31 ,000  subject 
entries  and  retrive  any  part  of  the 
ten-million  word  text  of  the  encyclo¬ 
pedia.  Subscribers  can  select  ar¬ 
ticles  from  a  menu  display  that 
shows  all  articles  whose  titles  begin 
with  a  key  word  you  specify.  A 
News  Flashback  feature  covers  cur¬ 
rent  events  and  steers  the  reader  to 
related  encyclopedia  articles,  and  a 
challenge  feature  tests  the  user's 
awareness  of  facts  covered  in 
various  articles.  The  encyclopedia 
will  be  updated  quarterly  to  insure 
that  all  information  is  current. 

AUTOMATED 
ELECTRONIC  MAIL 

A  new  communications  utility  is 
available  that  has  some  of  the  most 
advanced  features  ever  seen  in  a 
microcomputer  terminal  program. 
The  ACEMAIL  system  was  designed 
to  support  the  auto-dial/auto-answer 
features  of  the  Hayes  Stack  Smart- 
modem,  and  is  capable  of  receiv¬ 
ing  or  making  calls,  and  sending  or 
receiving  data  completely  unat¬ 
tended!  With  the  ACEMAIL  system, 
it  is  possible  to  program  your  com¬ 
puter  to  place  a  call  at  any  time  and 
date  (redialing  as  many  times  as 
necessary  to  get  on  line),  and  once 
logged  on,  it  can  send  or  receive 
whatever  files  you  have  program¬ 
med  it  to  transfer— all  automati¬ 
cally. 

A  disk  file  can  be  created  to  store 
commands  for  a  long  list  of  outgo¬ 
ing  calls,  including  the  date,  time, 
phone  number,  transmission  speed, 
prompt  delay  and  names  of  files  to 
be  transmitted.  When  the  proper 
time  comes,  the  program  refers  to 
the  disk  file,  places  the  call,  and 
makes  the  transmission. 

The  ACEMAIL  system  is  presently 
available  for  TRS-80  Models  I  and 
III  equipped  with  300  or  1200 
baud  Smartmodems,  and  the  Smart- 


modems  themselves  are  available 
from  the  same  source.  The  ACEMAIL 
1200  Software  costs  $119;  the 
ACEMAIL  300  Software  is  priced  at 
$79.  The  Hayes  Stack  Smartmodem, 
300  and  1200  baud  models,  are 
available  for  $239  and  $619  respec¬ 
tively.  The  ACEMAIL  system  was 
created  by  ACE  Computer  Products 
of  Florida,  Inc.,  1640  N.W.  3rd 
Street,  Deerfield  Beach,  FL  33441; 
voice  phone:  (305)  427-1257;  data 
phone:  (305)  427-6300. 

SMALL  BUSINESS 
MANAGEMENT  SYSTEM 

Howe  Software  has  released  a 
SMALL  BUSINESS  MANAGEMENT 
SYSTEM  designed  to  provide  every¬ 
thing  needed  to  manage  a  small 
business  on  a  microcomputer.  The 
system  provides  for  order  entry, 
prints  invoices  (on  plain  paper  or 
preprinted  forms)  and  mailing  labels, 
allows  recall  of  invoices  from  past 
orders,  and  keeps  track  of  inven¬ 
tory,  with  a  complete  list  of  all 
products  sold  by  product  type  and 
retail  value.  Bookkeeping  features 
include  a  complete  general  ledger 
with  records  of  income  and  ex¬ 
penses  by  categories. 

A  complete  "installation  pack¬ 
age"  customizes  the  program  for 
the  needs  of  each  business.  You 
define  (or  update  at  any  time) 
product  and  price  list  (with  a  maxi¬ 
mum  of  1000  products)  and  build  a 
chart  of  income  and  expense 
categories.  Other  custom  items  in¬ 
clude  sales  tax  rates,  shipping  and 
handling  charges,  automatic  invoice 
numbering,  and  provision  for  price 
discounting. 

The  system  is  available  for  the 
TRS-80  Models  I  and  III  (priced  at 
$350),  and  also  for  the  TRS-80 
Model  II,  IBM  Personal  Computer, 
Osborne-1 ,  or  any  CP/M  computer 
with  8-inch  disk  drives  (all  priced  at 
$400).  The  system  requires  an  80  (or 
more)  column  printer  with  10 
character-per-inch  print,  and  it  will 
work  on  hard  disk  drives.  For  more 
information,  contact  Howe  Software, 
14  Lexington  Road,  New  City,  NY 
10956;  (914)  634-1821.  (This  pro¬ 
gram  can  also  be  ordered  directly 
from  H  &  E  Computronics  at  800- 
431-2818.)  ■ 
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PROGRAM  PREVIEWS 

A.  A.  Wicks 


This  Month: 

Whenever  I  am  looking  for  a  pro¬ 
gram  to  review  that  may  be  of  inter¬ 
est  to  our  readers,  I  sometimes  scan 
the  back  reaches  of  various  com¬ 
puter  publications.  This  is  the  part 
of  the  magazine  where  some  of  the 
typefaces  are  so  small  i  feel  that  I 
am  in  training  to  read  the  Bible  on 
the  head  of  a  pin.  At  these  times  I 
look  for  the  small  two-column  ads, 
placed  mostly  by  companies  or  in¬ 
dividuals  who  are  perhaps  not  in  a 
position  to  place  $6000-per-page 
four-color  advertisements.  I  do  this 
for  two  reasons  —  perhaps  there  is  a 
gem  to  be  found  (among  rocks); 
and,  it  would  be  nice  if  a  worthy 
program  were  able  to  receive 
whatever  benefits  an  exposure  by 
my  review  might  offer. 

On  one  of  these  "back  country" 
searches  recently,  I  found  "AR¬ 
RANGER,"  a  disk  file  indexing  pro¬ 
gram  offered  by  Triple-D  Software 
of  Layton,  Utah  — a  small  town  just 
north  of  Salt  Lake  City.  (Since 
seeing  Triple-D's  advertising  in  an¬ 
other  magazine,  I  note  that  they  are 
also  advertising  in  this  one.) 

ARRANGER  cannot  unequivo¬ 
cally  be  classified  as  a  "gem,"  but 
far  from  being  a  "rock"  it  is  an  ex¬ 
ceptionally  fine  program  for  the 
purpose  for  which  it  was  designed.  I 
had  some  initial  problems  in  using 
this  program,  but,  as  it  turned  out, 
these  stemmed  from  my  interpreta¬ 
tion  of  unclear  documentation  rather 
than  from  any  program  fault  or 
deficiency.  Once  these  problems 
where  out  of  the  way,  I  had  no  fur¬ 
ther  difficulties,  and  was  impressed 
with  the  smoothness  and  impres¬ 
sive  operation  of  the  program.  In¬ 
cidentally,  the  cooperation  of  the 
people  at  Triple-D  was  outstanding 
in  clarifying  my  problem,  they  were 
interested,  concerned,  and  coopera¬ 
tive,  and  quickly  supplied  me  with 
another  disk  (which  turned  out  to 
be  unnecessary). 

INITIATION 

ARRANGER  is  started  by  placing 
the  ARRANGER  disk  in  Drive  0  and 
resetting  for  a  new  "boot-up."  No 
provision  is  made  for  a  backup  of 
the  program  disk  itself,  and  the 
original  disk  has  its  own  operating 


ARRANGER 

system.  When  I  inquired  regarding 
what  DOS  this  might  be,  I  was  ad¬ 
vised  it  was  a  Triple-D  DOS,  and 
ARRANGER  is  self-booting.  I  did  not 
pursue  this  further,  it  works  and 
these  reviews  are  not  particularly 
concerned  with  the  inner  workings 
of  a  program,  except  possibly  as  a 
passing  interest.  However,  as  the 
program  would  not  back  up,  and 
would  not  provide  a  Directory  from 
DOSPLUS,  I  assume  the  DOS  is 
proprietory.  This  lack  of  a  backup 
capability  concerns  me  — somehow 
I  believe  a  backed  up  disk  is  more 
comfortable  to  work  with;  but  the 
program  originators  must  be  the 
ones  to  determine  how  useful  this 
might  be  versus  the  moral  issue  of 
bootlegging  possibilities.  Later,  there 
will  be  a  description  of  the  func¬ 
tion  "Backup"  as  it  applies  to  AR¬ 
RANGER. 

INDEX  PREPARATION 

Prior  to  running  and  assembling  a 
disk  directory  with  ARRANGER,  you 
must  decide  how  you  propose  to 
format  this  directory,  by  naming 
your  disks  in  accordance  with  some 
plan  acceptable  to  ARRANGER.  The 
name  applies  to  the  disk  itself  — 
not  the  programs  thereon.  The 
name  will  replace  the  current  name. 
For  example,  the  name  may  be 
"TRSDOS"  before  renaming.  After¬ 
wards,  this  could  be  a  number,  or 
any  other  name  up  to  eight  charac¬ 
ters  long.  For  instance,  I  have  per¬ 
haps  200  disks,  and  prefer  to  num¬ 
ber  them  physically  (regardless  of 
their  data  name),  using  press-on 
labels.  But  prior  to  ARRANGER, 
they  carried  disk  data  names  as 
above  — TRSDOS,  NEWDOS,  etc. 
With  ARRANGER,  it  was  an  easy 
task  to  give  the  disks  the  same 
"electrical"  name  (which  is  actually 
a  number  in  my  case),  as  the  physi¬ 
cal  one.  Others  may  prefer  to  name 
their  disks  by  classification,  per¬ 
haps,  such  as  GAMES1,  UTILITY4, 
and  so  on.  Once  the  method  of 
indexing  is  determined,  you  may 
begin  renaming  your  disks,  using 
the  Rename  command.  This  is 
selected  from  a  menu  following 

continued  on  page  12 
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MICROSETTE 

DISKETTES  CASSETTES 


Microsette’s  reputation  for  quality  and 
credibility  has  made  us  the  leading 
supplier  of  low  cost,  short  length  cas¬ 
settes.  Now,  we  also  offer  5*/4-lnch  sin¬ 
gle  sided,  soft  sector  diskettes  in 
single  or  double  density.  We  give  the 
same  attention  to  quality  and  realiabil- 
ity  for  our  disks  as  we  do  for  our  cas¬ 
settes. 


LOOK  AT  OUR  PRICES 

includes  boxes  and  shipping 


Item 

10  Pack 

50  Pack 

C-10 

$  7.50 

$  32.50 

C-20 

9.00 

39.00 

C-60 

11.00 

50.00 

C-90 

15.00 

70.00 

MD-5 

$25.00  $110.00 

UPS  shipment  in  Cont.  USA  incl. 
We  can  not  ship  to  P.O.  Boxes 


Length 

Qty. 

Price 

Total 

SUBTOTAL 

Calif.  Cust.  add  Sales  Tax 

TOTAL 

Shipping  address  enclosed  □ 
Check  or  money  order  enclosed  □ 
Charge  to:  Visa  □  MasterCard  □ 

Account  No. _ 

Expiration  Date _ 

SIGNATURE _ 


MICROSETTE  CO. 

475  Ellis  St.,  Mt.  View, 

CA  94043  (415)  968-1604 


April  1983  11 


Can  your  VisiCalc  Sort? 


It  can  with  VIS  \  Bridge /SORT”  from  Solutions,  Inc. 

The  sorted  spread  sheet 
still  contains  all  the 
formulas  and  values  from 
the  unsorted  original.  Up 
to  5  rows  or  columns  may 
be  used  as  sort  keys. 

Each  key  may  be  alpha  or 
numeric  and  either  ascen¬ 
ding  or  descending. 

VIS \ Bridge /SORT  is  available  for  the  Apple®  II  +  and  III, 
the  IBM  PC™  and  the  TRS-80®  I,  11/16,  and  III. 

$89  plus  $4  shipping  and  handling  from  Solutions,  Inc. 

Order  802  229  0368.  Box  989,  Montpelier,  VT  05602. 
Mastercard  and  Visa.  Dealer  inquiries  welcomed. 

Also  available:  VIS\Bridge/REPORT™  for  $79  and 
VIS \Bridge/D J™  (Dow  Jones)  for  $445. 

All  VIS /Bridge  products  are  trademarks  al  Solutions  c  Vivfjir*  a  fradematk  of  VisiCorp  TRS-80*  is  a  trademark  ol  Tandy  Corp 
IBM  PC,M  is  a  trademark  of  IBM  Corp  Appte*  is  a  luocwwt *  Computers  inc  _ 


WHY  BUY  A  JOY 
STICK  TWICE?! 


fvou  wave  aST 

SR\  COMPATIBLE 
(  STICK,  VOOWl 

S  ito a  n'ou^  r  1 


JOY  STICK  KIT* 


Without  Joy  Stick  Model  l/lll  . $15.95 

With  Joystick  Model  l/lll . $26.95 


— Be  Your  Own  SYSOP !!!!  — 


Bullet-80  Bulletin  Board  Model  l/lll 

Version  8.0 . $150,00 

SPRING  SPECIALS - 

Full  line  of  H&E  Computronlcs  Software. 
Versa  Business  Series  ( all  5  packages) 
Reg.  $549.75  SPECIAL  LOW  PRICE  $499 

10%  off  All  game  software 

If  you  mention  this  ad  ! 

_ AD  EXPIRES  JUNE  30th _ 

Please  call  for  Information  about  ANY  products. 

We  have  In  stock  a  FULL  LINE  of  Software  from 
ALL  Major  Houses. 

After-Market  Computer  Gallery** 

P.O.Box  993  (Mailorder) 

1  Franklin  St.  (Retail  Outlet) 

Danbury,  CT  06810 

Voice  Line  -  203  743-1299 
Bullet-80  Computer  Line  -  203  744-4644 
(300/1200  Baud) 


PRICES  DO  NOT  INCLUDE  SHIPPING  &  HANDLING. 


‘Internal  Installation  Required.  No  trace  cutting  or  electronics 
involved. 

**A  Oivlsion  of  Computer  Services  ot  Danbury 


PROGRAM  PREVIEWS 

continued  from  page  11 
program  initialization  and  date  en¬ 
try,  by  entering  R.  (The  commands 
appear  on  the  menu  as  <R>ename, 
etc.,  with  the  first  letter  providing 
the  shortcut  function  entry.  The 
Rename  command  is  followed  by  a 
screen  request  to  insert  a  disk  and 
press  <ENTER>.  The  old  name  is 
then  displayed  and  a  new  one  re¬ 
quested,  which  you  now  type  in, 
and  immediately  the  disk  is  rewrit¬ 
ten  with  the  new  name.  All  this 
takes  only  a  few  seconds  — less 
than  the  time  to  describe  it. 
Proceeding  in  this  way,  a  rapid 
renaming  of  all  disks  is  accom¬ 
plished  easily,  if  your  disks  are 
physically  distributed  so  that  you 
can  pick  them  up  and  insert  them 
quickly,  dozens  of  disks  can  be 
processed  in  10  or  15  minutes. 

In  using  Rename,  if  the  name 
was  previously  on  file  (this  is  when 
you  have  ARRANGER  established  as 
your  system  index),  you  will  be 
asked  if  you  want  the  change  stored 
in  ARRANGER.  If  the  reply  is  affirm¬ 
ative,  the  old  name  is  deleted  and 
the  new  name  entered  on  the  disk. 
If  you  should  reply  in  the  negative, 


the  old  name  will  remain  in  the  file 
(but  not  on  the  disk),  the  AR¬ 
RANGER  index  will  still  show  the 
old  name.  This  is  useful  if  you  have 
added  a  new  disk  name  not 
wanted.  Rename  will  correct  the 
disk  name  and  the  Index. 

Each  of  the  menu  commands 
may  result  in  certain  Error  Mes¬ 
sages,  if  the  situation  warrants.  With 
Rename,  one  that  can  occur  (as 
noted  above),  is  "Disk  Name  Al¬ 
ready  Exists,"  which,  if  allowed  will 
result  in  two  identical  names  on 
file.  Another  error  message  will  oc¬ 
cur  if  an  attempt  is  made  to  rename 
a  write-protected  disk,  or  an  un¬ 
recognized  DOS  is  encountered. 
The  latter  is  not  likely  to  occur, 
inasmuch  as  ARRANGER  recog¬ 
nizes  nine  different  DOS. 

The  preceding  Renaming  func¬ 
tion  is  the  "work"  part  of  using  AR¬ 
RANGER.  Once  this  is  out  of  the 
way,  the  remaining  menu  functions 
are  short  and  easy, and  provide 
beneficial  results. 

OPERATION 

The  Add  command  adds  the  disk 
records  to  ARRANGER.  That  is,  the 
disk  name  and  all  program  file 
names  on  each  disk  are  added  with 
this  command.  Up  to  45  names  per 
disk  are  allowed,  and  in  addition, 
pertinent  information  such  as  Free 
Grans,  created  and  updated  dates, 
number  of  files,  whether  a  System 
or  Data  disk,  density  and  DOS 
type,  are  all  recorded  for  later  in¬ 
formation.  All  single  density  disks 
are  recorded  as  "NEWDOS,"  al¬ 
though  you  may  have  no  NEWDOS 
disks!  System  and  Invisible  files  are 
not  added.  I  like  this,  as  otherwise 
you  could  have  dozens  of  the  same 
program  name  in  the  final  index. 

Add  operates  similarly  to  Re¬ 
name.  You  are  prompted  to  insert  a 
disk  and  press  <ENTER>.  Once  the 
directory  is  found  and  read  in  to 
memory,  it  is  displayed  and  added 
to  the  ARRANGER  file.  This  func¬ 
tion  too,  has  error  messages.  One  of 
these,  "Maximum  Capacity  Reached," 
occurs  when  240  disks  have  been 
added  (200  in  single  density),  which 
is  the  maximum  quantity.  This  is  not 
restrictive  to  anyone  wishing  to  ex¬ 
tend  beyond  this  number  of  disks, 
as  long  as  this  is  planned  in  advance 
for  your  system  of  indexing.  For  ex¬ 
ample,  your  index  numbering  sys¬ 
tem  could  be  such  as  001-200  for 
the  first  series,  and  201-400  for  the 
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second.  Another  valuable  flag  is  "Dis¬ 
kette  (..name..)  Already  on  File," 
which  prevents  duplication  of  this 
type. 

If  at  any  time,  you  may  wish  to 
update  an  ARRANGER  index,  that 
word,  Update,  will  do  this.  This 
would  be  desirable,  for  instance,  if 
new  files  have  been  added  to  a 
disk,  or  purged,  etc.  This  function 
too,  is  interactive  with  a  screen 
dialog. 

We  now  come  to  some  of  the 
useful  outputs  of  ARRANGER.  Using 
View,  all  information  about  a  disk  is 
displayed,  except  the  file  names. 
Nine  lines  of  information  are  pro¬ 
vided,  and  to  view  more,  the  Up 
and  Down  arrows  will  scroll  the  dis¬ 
play.  The  Print  (alphabetical  list), 
command  allows  you  to  view  the 
file  name  information  not  provided 
with  the  preceding  command.  There 
are  several  interesting  and  useful 
options  available  here.  One  of 
these  allows  the  output  to  be  either 
viewed  or  printed.  Also,  a  Sort, 
other  than  the  alphabetical  listing, 
may  be  requested.  For  example,  if 
you  only  wish  to  see  CMD-type 
files,  this  may  be  requested.  When 
using  a  video  output,  you  may  use 
the  arrow  keys  once  more  to  scroll 
through  the  ARRANGER  index.  One 
nice  feature  is  that  the  filenames 
are  in  rows  on  the  screen,  whereas 
the  printer  output  is  in  three 
columns.  If  there  are  more  than  250 
filenames  in  memory,  pressing  Clear 
will  continue  the  sort. 

The  Find  command  will  search 
for  any  file  name  chosen.  In  fact,  if 
you  cannot  recall  the  full  name,  it 
will  search  based  upon  the  initial 
part  of  the  file  name,  if  you 
precede  the  portion  of  the  name 
you  enter  with  a  question  mark. 
This  too,  permits  the  locating  of  all 
file  names  that  may  start  with  a  cer¬ 
tain  letter  grouping.  For  example, 
you  might  have  a  number  of 
biorhythm  programs,  all  starting 
with  "bio"  that  would  be  displayed 
when  searched  for  with  the  com¬ 
mand  Find— ?bio.  Once  located,  the 
monitor  will  display  the  file  name 
and  the  disk  name  (or  number  if 
"name"  is  a  number),  on  which  the 
program  appears.  As  with  the  other 
commands,  the  screen  may  be 
scrolled  if  necessary. 

The  Locate  command  may  sound 
as  if  it  were  another  Find  com- 
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SOFTWAR 


Proven  Software  Solutions 
for  the  TRS-80,  PMC-80  &  81  User 
At  VERY  Special  Prices 


GAMES 


Title  List 

Advanced  Operating  Systems 

+  VOYAGE  OF  THE  VALKYRIE 
0  32K  E  &  III  39  95 

T16KI&IM  29  95 

Adventure  International 


SCOTT  ADAMS'  ADV  *1.  #2  8  #3 
D  32K  I  &  III  39.95  31.00 

SCOTT  ADAMS  ADV  #4.  *5  8  #6 
D  32K  I  &  III  .  39  95  31  00 

SCOTT  ADAMS  ADV  HI.  #8  8  *9 


ARMOR  PATROL 

D  32K  1  8  III 

39  95*" 

31.00 

D  32K  1  8  III 

24  95 

19  00 

SCOTT  ADAMS 

ADV  HI 0.  ff'l  8  #12 

T  16K  1  8  III 

19  95 

15  00 

D32K  1  8  III 

39  95 

31.00 

COMBAT 

SEA  DRAGON 

D  32K  1  8  III  . 

20.95 

16  00 

D32K  1  4  III 

24  95 

19.00 

T  16K  1  8  III  ... 

19.95 

15.00 

T  16K  1  8  III 

19  95 

15  00 

CONQUEST  OF  CHESTERWOOO 

SHOWDOWN 

D32KI8III 

20  95 

16  00 

D32K  1  8  III 

20  95 

16  00 

T  16K  1  8  III  .  . 

19  95 

15  00 

T  16K  1  8  III 

14  95 

12  00 

F  DEMON  VENTURE  #1- 


■  SILVER  FLASH  PINBALL  1 


REIGN  OF  THE  RED  DRAGON 

D32K  1  8  III 

19.95 

D32K  1  8  III 

24  95 

19.00 

T  16K  1  8  III 

14  95 

ELIMINATOR 

SKY  WARRIOR 

0  32K  1  8  III 

24  95 

19.00 

D  32K  1  4  III 

20.95 

T  16K  1  8  III 

19  95 

15  00 

T  16K  1  4  III 

14  95 

GALACTIC  EMPIRE 

SPACE  INTRUDERS 

T  16K  1  8  III 

14  95 

12  00 

D32K  1  8  III 

20.95 

GALACTIC  REVOLUTION 

T  16K  1  8  III 

19.95 

T16KI8III 

14  95 

12  00 

STAR  FIGHTER 

GALACTIC  TRADER 

D  32K  1  8  III 

29  95 

T  16K  1  8  III 

14  95 

12  00 

T  16K  1  4  III 

24  95 

+  GALACTIC  TRILOGY 

STAR  TREK  3 5 

D32K  1  8  III 

39  95 

30  00 

D  32K  1  4  III 

19.95 

LUNAR  LANDER 

T  16K  1  8  III 

14  95 

D32KI8III 

20.95 

16.00 

TREASURE  QUEST 

T  16K  1  &  Ml  .... 

14.95 

11.00 

D  32K  1  8  III 

19.95 

MACES  8  MAGIC  #1- 

BARLOG 

T  16K  1  4  III 

14.95 

0  32K  I  29.95 

MACES  8  MAGIC  112- 
STONE  OF  SISYPHUS 
D  32K  I  29  95 

MACES  &  MAGIC  #3— 
MORTON'S  FORK 
D  32K  1  29  95 

MISSILE  ATTACK 

D  32K  I  8  III  20  95 

T  16K  I  &  III  ...  14  95 

OTHER  VENTURE #2- 
CROWLEY  MANOR 

D  32K  !  8  III  20  95 

T  16K  I  8  III .  19  95 

OTHER  VENTURE  #3— 
ESCAPE  FROM  TRAAM 
D  32K  I  8  III  20  95 

T  16K  I  8  HI  .  .  .  19.95 

OTHER  VENTURE  114- 
EARTHQUAKE  SF  1906 
D32K18III  20.95 

T  16K  I  8  III  . ...  19.95 


Automated  Simulations  (EPYX) 
CRUSH.  CRUMBLE  8  CHOMP 
D  32K  I  8  III  29  95 

T  16K  I  8  III  29.95 

DUNJONQUEST- 
HELLFIRE  WARRIOR 
D32KI8III  39  95 

T  16K  I  8  III  39.95 

DUNJONQUEST- 
KEYS  OF  ACHERON 
D  32K  I  8  III  19.95 

T  16K  I  8  III  .  19.95 

DUNJONQUEST- 
SORCERER  OF  SIVA 
D  32K  I  8  III  29  95 

T16K18III  29  95 

DUNJONQUEST- 
TEMPLEOF  APSHAI 

D  32K  1  8  III  39  95 

T  16K  I  8  III  39  95 

DUNJONQUEST- 


_  Title  List  Pro 

Big  5 

ATTACK  FORCE 

D  32K  I  8  III  19  95  15.1 

T  16K  I  8  III  15  95  121 

COSMIC  FIGHTER 
D32KI8HI  19  95  15.1 

T  16K  I  8  III  15  95  12( 

DEFENSE  COMMAND 

D32KI8  1II  19  95  15  ( 

T  16K  I  &  lit  15  95  12  1 

GALAXY  INVASION 

D  32K  I  8  III  19  95  15  < 

T  16K  I  8  III  15  95  12  ( 

METEOR  MISSION 
D  32K  I  8  III  19  95  15,( 

T  16K I  8  111  1595  12( 

ROBOT  ATTACK 

D  32K  1 8  III  19  95  15.( 

T  16K  I  8  III  15  95  12. ( 

+  STELLAR  ESCORT 

D  32K I  8  III  19  95  15.C 

T  16K  1 8  III  15  95  12  C 

SUPER  NOVA 

D  32K  I  8  III  19  95  1S.( 

T  16K  I  8  III  15  95  12  ( 

Cornsoft 
+  BOUNCEOIDS 

D  32K I  8  III  19  95  15.( 

T16K  18111  15  95  12  ( 

SCARFMAN 

D  32K  I  8  III  19  95  15.C 

T  16K  I  8  III  .  1595  12.C 

SPACE  CASTLE 

D  32K  1 8  III  19.95  15.C 

T  16K  I  8  III  15  95  12  C 

Med  Systems 
ASYLUM 

D  32K  I  8  III  22  95  18  C 

T  16K  I  8  III  19  95  15  C 

F  ASYLUM  II 

D  32K I  8  III  22  95  18.C 

T  16K  1 8  III  19  95  15.C 

DEATHMAZE  5000 

D  32K I  8  III  17  95  14  ( 

T  16K  I  8  III  14  96  11  ( 

LABYRINTH 

D  32K  I  8  III  17  95  14. ( 

T  16K  I  8  III .  14  95  11  ( 

WARRIOR  OF  RAS—  DUNZHIN 
D  48K  I  8  III  29  95  23  ( 

T  48K  I  8  III _  29  95  23  ( 

WARRIORS  OF  RAS-  KAIV 

D  48K  I  8  III  29  95  23  ( 

T  48K  I  8  III  .  .  , .  29  95  23.< 

WARRIORS  OF  RAS—  THE  WYLDE 


OTHER  VENTURE  #5- 

' 

UPPER  REACHES  OF  APSHAI 

D  48K  1  4  III  . 

29  95 

23.00 

+  DEATH  PLANET 

D  32K  1  4  III 

19.95 

15  00 

T48K  t  8  III 

29  95 

23  00 

T  16K  1  4  III  19.95 

15.00 

T  16K  1  4  III 

19  95 

15  00 

Melbourne  House  Software 

PLANETOIDS 

+  RICHOCHET 

PENETRATOR 

D32KI4  1II  20  95 

16.00 

D32K  1  8TII 

19.95 

15.00 

D32K  1  8  III 

24  95 

20  00 

T  16K  1  4  III  ..  19.95 

15.00 

T  16K  14  III 

19.95 

15  00 

T16KISIII 

24  95 

20  00 

Now  Twice  As  Many  Programs! 


EDUCATION 


WORD  PROCESSING 


Advanced  Operating  Syatems 

Aspen  Software 

GRAMMATIK 

MOSTLY  BASIC 

EDUCATIONAL  PKG 

7  PRG 

D32K  1 

59.00 

46  00 

T16KI&III 

24  95 

20  00 

PROOF  EDIT 

MOSTLY  BASIC 

D  32K  1 

30.00 

23  00 

SCIENTIFIC  PKG  7  PRG. 

PROOFREADER 

T  16K  1  &  III 

24.95 

20  00 

D  32K  1 

54  00 

42  00 

TIME  DUNGEON- 

SOFT-SCREEN 

AMERICAN  HISTORY 

D  48K  1 

69  00 

54.00 

T  16K  1  8  III 

24  95 

20  00 

SOFT-TEXT 

54.00 

TIME  DUNGEON- 

D  48K  1 

69.00 

WORLD  HISTORY 

Michael  Shrayer  Software 

T  16K  1  8  III 

24  95 

20.00 

ELECTRIC  PENCIL 

24  00 

Automated  Simulations  (EPYX) 

T  16K  1 

100  00 

JABBERTALKY 
D32K  I  8  III 
T  16K  I  8  III  . 


BUSINESS 

Small  Business  Systems  Group 
ACCOUNTS  PAYABLE 
D  48K  I  8  III  195  00 

ACCOUNTS  RECEIVABLE 
D48KI8III  195  00 

GENERAL  LEDGER 

D48KISIH  195  00 

INVENTORY  CONTROL 
D  48K  I  8  III  195  00 

PAYROLL 

D  48K  I  8  III  195  00 


23oo  INFO.  PROCESSING 

23.00  Adventure  International 
+  MAXI  CRAS 

D48KI8III  99  95  79.00 

MAXI  MANAGER 

D  48K  I  &  III  .  99.95  79.00 

+  MAXI  MANAGER  UTILITY  PACK  H 1 
D  48K  I  8  III  49.95  39  00 

155.00  +MAXISTAT 

D  48K  I  8  III  199.95  147.0C 

155.00  Auk's 

+  COMPUTER  FILING  SYSTEM  (CFS) 

155  00  D  32K  I  8  III  69.00  55.00 

Dan  Haney  Associates 
155  00  ELECTRIC  SPREADSHEET 

D  32K  I  8  III  69  95  65  00 

155  00  T  16K  I  8  III  34.95  30.00 


OPERATING  SYS. 

Micro  Systems  Software 

DOS  PLUS  V3.3S 

D32KI  100  00  80  00 

UTILITIES 

Adventure  International 
+  DIRECTORY  INFO  MGT  II  (DIM  II) 

D  32K  I  8  III  24  95  19.00 

Howe  Software 
MON3 

T  16K  I  .  39  95  31  00 

MON4 

D  32K  I  49  95  39.00 

STERM 

T  16K  I  .  69  95  55.00 

SYSTEM  DIAGNOSTIC 

D  32K  I  8  III  99  95  79.00 


69  95  55.00 


MISCELLANEOUS 

Adventure  International 
HINT  SHEET  tor  single 
Adventure  #  1  thru  H 12 

1  00  t  00 

Software  Affair 
ORCHESTRA-85 

T  16K  I  99  95  95  00 

D16KI  99  95  95  00 


NEW 


PMC  SOFTWARE 

475  Ellis  St..  Mt  View.  CA  94043 

Orders  (4151968  1604 


continued  on  page  14 


IfffiH  f0«  FaSUXUVfR''  wnd  check*  money  orders  visXoHVUjiefOre  numbu  t'ptjuy  <utr  Pe»vjoji  c-necki  <tau><r  3  *een 
U  S  4  c*»  PWCf  S  i NCl  uOf  UPS  commenui  dei^ery  ido  *o«  use  P  0  Bon  eioiemm  toe  6  Hi  Puces  subieci  to  cru^oe 


:CQMPUTRQNICS 


April  1983  13 


EE  Sof twara  by 

|  PABSoft  | 

Excellence  in  Technical  Software 

LINEAR  CONTROL  SYSTEMS 


State  Variable  Analysis . ..$25 

Advanced  S.  V.  Analysis . $25 

Transfer  Function  Anal . $25 

All  Three - $60 

ACTIVE  FILTER  DESIGN 

Butterworth  &  Chebychev  I . $17 

Chebychevll . $17 

Elliptic . $17 

All  Three - - $40 


•Tape  or  Disk  (Specify) 

Tape  Assumes  Non-DOS  Systems 
•For  Disk  Specify  DOS 
•Model  I  or  III  (Specify) 

Minimum  48K  RAM 

MATRIX  SUBROUTINES 

These  'callable  from  BASIC’  subroutines 
provide  an  extension  to  the  BASIC  ROM. 
Included  are  MAT  +  ,-,*,/,  transpose,  in¬ 
verse  and  disk  &  tape  I/O.  Min  16K  RAM. 
Available  on  disk  or  tape.  Specify  DOS 
for  disk  version. 

$19.95 

PAB  Software,  Inc. 

P.O.  Box  15397 
Fort  Wayne,  Indiana  45885 


ARRANGER 

100%  Machine  Language  Disk  Index  Program 
/or  the  TRS-80  Model  I  &  III. 

Automatically  recognizes  ALL  major  DOS's! 

The  Arranger  is  a  master  index  system  that 
automatically  records  the  names  of  your  pro¬ 
grams,  what  disks  those  programs  are  on  and 
type  of  DOS.  Features  include  — 

•  Automatic  single  and  double  density 
recognition. 

•  Accepts  LDOS,  DOS+,  TRSDOS, 
DBLDOS,  NEWDOS/80,  MULTIDOS  . . . 

•  Works  interchangeably  with  Model  III,  I 
double  density. 

•  Capacity  of  250  disks,  44  filenames/disk 

•  Quickly  locates  any  amount  of  free 
granules 

•  Finds  a  program  in  less  than  30  seconds! 

•  Alphabetizes'  1500  filenames  in  40  secs.! 

•  Option  to  sort  by  any  extension 
(/BAS,  /CMD,  /???) 

•  Easily  updates  diskettes  previously 
added  with  only  2  keystrokes. 

•  Backup  function  built  in. 

•  Uses  1  to  4  drives,  35,  40  or  80  tracks. 

•  Radio  Shack  doubler  compatible 
Requires  32k  /  1  disk  minimum 

JUST . $29.95 

FREE  SHIPPING 
SATISFACTION  GUARANTEED 

Specify:  TRS-80  Model  number 

(If  you've  added  double  density  to 
your  Model  I,  please  indicate) 

TRIPLE  D  SOFTWARE 

P.O.  Box  642C  PERSONAL  CHECK 

Layton,  Utah  84041  VISA  OR 

1801)  546-2833  MASTERCARD 
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mand,  and  in  a  sense  it  is. 
However,  in  this  case  Locate  iden¬ 
tifies  disks  in  the  total  index  system 
that  have  a  specified  amount  of  free 
space  on  them.  When  you  specify 
<L>,  the  screen  dialog  requests  the 
minimum  amount  of  free  space  that 
it  is  desired  to  locate,  in  granules. 
Suppose  you  state  "20"  as  your 
answer.  A  list  of  all  disk  names  that 
qualify  will  be  displayed,  showing 
the  number  of  granules  each  has  on 
it  Of  course,  all  disks  with  more 
than  20  available  granules  will  be 
shown,  but  none  will  be  shown  that 
has  less.  This  is  an  attractive  fea¬ 
ture,  particularly  when  disk  space  is 
getting  tight  and  you  are  scratching 
for  a  bit  of  space.  It  also  permits  full 
utilization  of  disk  space. 

The  Scan  command  allows  you  to 
look  through  the  directories  of  all* 
disks  on  ARRANGER.  All  informa¬ 
tion  relating  to  a  disk  will  be  dis¬ 
played.  Scrolling  is  controlled  as 
with  the  other  commands,  by  use  of 
the  arrow  keys.  In  looking  for  some 
particular  name  while  in  the  Scan 
mode,  you  have  the  option  of  start¬ 
ing  at  some  selected  name,  rather 
than  having  to  scan  the  entire  file. 

We  now  come  to  the  Backup 
command.  Earlier  I  said  it  was  not 
possible  to  backup  ARRANGER. 
True— when  we  discuss  backup  in 
the  usual  connotation.  But  in  the 
ARRANGER  sense,  backup  may  be 
accomplished  at  any  time  ten  or 
more  disk  records  have  been  added 
to  ARRANGER.  Then,  what  occurs  is 
that  the  ARRANGER  and  the  disk 
index  is  backed  up  to  another  disk. 
You  now  have  a  backup  from  which 
we  assume  ARRANGER  and  the  in¬ 
dex  records  cannot  be  separated.  I 
queried  the  authors  about  this 
rather  unusual  approach,  and  was 
told  that  they  considered  this  "a 
passive  means  of  protecting  the 
program."  I  suppose  it.  does  ac¬ 
complish  that,  and  it  does  not 
handicap  the  owner  of  the  pro¬ 
gram— but  it  would  be  a  real  an¬ 
noyance  to  anyone  receiving  an  un¬ 
authorized  copy  (together  with 
someone  else's  index  on  it). 

SPECIAL  OPTIONS 

There  are  some  operating  niceties 
with  ARRANGER  that  are  well  worth 
mentioning.  If  you  have  used  one  of 
the  menu  selections,  pressing  any 


key  will  return  the  program  to  the 
previous  selection.  This  markedly 
speeds  up  such  functions  as  adding 
disks  to  the  records,  etc.  If  you 
press  the  Break  key  in  response  to  a 
screen  query,  you  are  returned  to 
the  menu.  Users  having  three  or 
four  disk  drives  may  select  these 
drives  directly  while  in  screen 
dialog.  Also,  there  are  several  op¬ 
tions  available  to  use  should  dif¬ 
ficulties  occur  because  of  an  electri¬ 
cally  damaged  disk,  for  example.  A 
lower-case  driver  is  built  in  to  AR¬ 
RANGER,  and  Model  I  systems 
have  keyboard  debouncer  software 
installed.  No  problems  should  oc¬ 
cur  with  Model  I  units  that  have 
been  modified  by  Radio  Shack,  and 
operation  with  the  Radio  Shack  or 
other  manufacturer's  doublers  in¬ 
stalled,  is  trouble-free. 

Earlier,  mention  was  made  of  the 
Manual  mode  of  ARRANGER.  In  the 
Manual  mode,  it  is  necessary  that 
you  type  in  the  disk  names  during 
Add  or  Update.  This  could  happen 
if  you  did  not  want  to  Rename  all  of 
your  disks,  but  would  really  slow  up 
information  entry.  There  is  a  "tog¬ 
gle"  command  available  that  allows 
you  to  select  between  Manual  and 
Automatic  entry.  The  latter  mode  is 
as  described  for  all  of  the  functions 
previously  listed. 

INSTRUCTION  SHEET 

The  instructions  that  accompany 
ARRANGER  cannot  be  classified  as 
a  manual  as  they  comprise  only 
both  sides  of  a  sheet  of  light  card 
stock  8  1/2  by  14  inches  in  size. 
However,  this  text  is  formatted  to 
the  equivalent  of  six  pages  of  stand¬ 
ard  printed  pages  reduced  to  eight- 
point  type  size.  This  is  undoub¬ 
tedly  small  (about  1/8th  inch),  but 
nevertheless  is  in  a  clear,  easy-to- 
read  typeset  font,  with  Bold  sec¬ 
tion  headings. 

The  composition  of  this  instruc¬ 
tion  sheet  is  another  matter.  It  is 
rife  with  spelling  errors  (and  a  few 
typographical  ones).  There  is  really 
no  excuse  for  errors  such  as  these, 
and  I  would  urge  the  authors  to  ob¬ 
tain  the  services  of  a  High  School 
English  teacher  to  look  this  material 
over  before  the  next  reprinting.  The 
instructions  themselves  are  confus¬ 
ing  in  places,  and  one  important 
item  that  has  been  overlooked  is  an 
Introduction  —  something,  in  this 

continued  on  page  17 
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EVERY  FEW  YEARS  A  UNIQUE  PRORRAM  ARRIVES 

...SO  PRACTICAL..SO  USEFUL  IT  BECOMES  HERALDED  BY  COMPUTER  OWNERS  INTERNATION¬ 
ALLY  AS  A  TRUE  CLASSIC...AN  INDUSTRY  STANDARD...HIGHLY  ACCLAIMED  BY  EVEBY  MAJOR 
TRS-80  PUBLICATION.  YOU'VE  SEEN  IT  WITH  ONLY  A  HANDFUL  OF  TRS-80  PROGRAMS...NOW 
EXPERIENCE  A  LEGEND  WITH  THE  NEW... 


siiyjaB 


VERSION  3.0 

m 


MANIPULATE  DISK  SECTORS,  MEMORY 
AND  FILES  •  COPY  FILES  FROM  AND  TO 
NON-COMPATIBLE  DOS'S  •  ZAP  A  DIREC¬ 
TORY  •  ZAP  A  SECTOR  •  COPY  A  SECTOR 
AND  COMPARE  A  SECTOR  •  COMPARE 
FILES  •  PURGE  A  DIRECTORY  •  DISPLAY 
DISK  MAPS  •  EXAMINE  FILE  LOCATIONS  • 
READ  AN  ALTER  DATA  ADDRESS  MARKS  • 
DOUBLE  SIDED  DRIVE  SUPPORT  LDOS, 
DOSPLUS,  AND  MULTIDOS  •  MORE  • 
BOOTS  ON  MOD  I  OR  MOD  III  35, 40,  OR  80 
TRACKS  •  SINGLE  OR  DOUBLE  DENSITY  • 
TEST  MEMORY  •  READS  ALL  CURRENT 
POPULAR  DOS’S;  TRDOS,  LDOS, 


lsl  PLACE  80-MICRO  19B2 
UTILITY  PROGRAM  OF  THE  YEAR 


PROTECTED  MEDIA 
BACK  UP  COPY  INCLUDED 


NEWDOS,  NEWDOS/80  2.0,  DOSPLUS, 
MULTIDOS,  DBLDOS  •  AUTO  DENSITY 
RECOGNITION  •  AUTO  DOUBLER 
RECOGNITION  •  AUTO  DOS  RECOGNITION 

•  AUTO  MODEL  RECOGNITION  MOD  I  OR 
MOD  III  •  REPAIR  DAMAGED  DIRECTORIES 

•  REPAIR  BOOT  SECTORS  •  REPAIR  HIT  & 
GAT  TABLES  •  CREATE  A  SPECIAL  OR 
CUSTOM  FORMATTED  DISK  •  REFORMAT 
WITHOUT  ERASE  •  BUILT  IN  PRINTER 
ROUTINES  •  SOFTWARE  BULK  ERASE  A 
DISKETTE  •  PATCHES  TRSDOS  AT 
OWNERS  OPTION  •  EASILY  CONFIGURED 
FOR  ANY  SYSTEM  •  MORE  • 


THE  PROGRAM  W/MAN UAL  79.95  •  THE  TECH  MANUAL  1 4.95  •  THE  BOOK  INSIDE  SU+  19.95 


A  GRAPHICS  BREAKTHROUGH1  Now  the  ULTIMATE  in 
graphics  design  and  editing.  PowerDOT  is  the  state-of-the- 
art  in  HI-RES  Dot  Mappers  Unmatched  in  quality  and 
features.  PowerDOT  allows  the  user  to  create  TRUE  HI-RES 
printouts  on  the  EPSON  (Graft rax  or  Gral!rax+  req ).  or  the 
C.ltoh  PROWRITER  from  Leading  Edge  without  ANY  hard¬ 
ware  modifications'  The  program  has  the  ability  to  create 
drawings  several  times  larger  than  the  computer  screen. 
You  are  only  limited  by  disk  storage.  Your  screen  is  merely  a 
"picture  window"  lo  a  much  larger  drawing  area.  You  deline 
the  picture  size  You  select  the  print  mode:  hi-res.  lo-res.  or 
ultra-res  A  very  versatile  utility  and  truly  ahead  ol  its  lime. 
Only  $49.95. 


The  most  powerful,  mailing  system  tor  the  TRS80.  Powermail  is  a 
highly  sophisticated  mass  mailing  system  designed  to  run  under 
all  ol  Ihe  popular  DOS's  currently  available  lor  the  Mod  I  or  III  The 
program  is  written  entirely  in  machine  language  tor  maximum 
operation  speed,  and  occupies  only  4K  ol  the  available  RAM  m 
your  computer  There  are  no  slow  periods  when  Powermail  is 
running.  New  leatures  have  heen  added  to  Ihe  program  that 
others  have  always  lacked  You  now  have  Ihe  ability  to  keep 
track  ot  mailings  using  the  24  flags  that  are  incorporated  into  Ihe 
Powermail  program.  The  Powermail  system  will  handle  a  file  up  lo 
8  megabytes,  or  65.535  names,  whichever  is  smaller.  The 
program  will  run  in  as  little  as  32K  and  one  disk  drive,  although 
48K  and  2  drives  are  desirable.  The  program  will  also  sort  the 
entire  maximum  fife  size  and  open  up  to  1 68  files  simultaneously 
during  the  process.  Only  $99.95 


mMMmv 

A  lull  screen  graphics  editor.  PowerDRAW  allows  the  user  to 
draw  directly  to  the  screen  utilizing  cursor  controlled 
movement.  Graphics  and  text  may  be  combined  and  saved 
directly  to  disk  or  tape,  and  recalled  at  a  later  time.  The 
“SAVE"  formats  are:  CONDENSED  TOKENS.  EDAS  SOU¬ 
RCE.  EDTASM  SOURCE.  BASIC  DATA  STATEMENTS. 
BASICS  STRINGS.  BASIC  ARRAYS,  and  LOAD  FILE 
FORMAT  The  tiles  may  be  run  alone  or  merged  into  any  type 
ot  program  or  application.  Animation  is  also  possible  when 
screens  are  sequenced.  Design  custom  forms,  titles,  pic¬ 
tures.  and  graphics  tor  your  applications.  Received  EXCEL¬ 
LENT  reviews  in  INFOWORLD  6/82. 80-US  1 0/82.  and  80- 
MICRO  10/82  Three  printer  drivers  are  included,  and  the 
program  is  JOYSTICK  compatible  A  GREAT  value  at  only 
$39.95. 


New  printer  drivers  tor  the  new  Radio  Shack”  Superscripsil” 
This  new  generation  ot  custom  printer  drivers  allows  you  to  utilize 
all  ol  SUPERSCRIPSITS  leatures  with  your  EPSON.  PROWRITER 
and  C.ITOH  F-t  0  STARWRITER  printers.  You  can  now  utilize  all 
ol  the  printers  custom  features  such  as  compressed,  expanded 
and  proportional  print,  underlining,  boldface,  superscripting,  and 
sub- scripting.  All  drivers  can  be  called  from  within  SUPE  RSCRIP- 
SIT  at  "document  open  time."  Order  by  printer  designation  as 
follows:  Only  $29.95  each 

POWERDRIVER  E . EPSON  MX70/80/100 

POWERDRIVER  P . C.ITOH  PROWRITER 

POWERDRIVER  F . C.ITOH  F-10 


Available  from  Selected  Dealers  Everywhere 


11500  Stemmons  Fwy.,  Suite  125 
Dallas,  Texas  75229 
To  order  call  toll  free  1-800-527-7432 
For  product  information  (214)  484-2976 


Products  from  Breeze/QSD,  Inc. 


SORTING  IT  OUT 


Arne  Rohde 


1. Introduction 

In  the  series  of  articles  on  sorting  and  searching 
which  have  appeared  in  Computronics,  we  have  seen  a 
number  of  different  algorithms  which  can  be  used  to 
sort  an  array  into  a  particular  sequence.  These  algo¬ 
rithms  have  not  been  programmed  as  stand-alone  pro¬ 
grams,  but  as  routines  which  could  be  used  in  other 
programs.  Normally  sorting  programs  are  not  written  to 
show  the  sorting  process  as  it  occurs,  but  the  TRS-80 
with  its  memory  mapped  video  display  is  suited  to  a 
real-time  demonstration  of  sorting  techniques. 

The  program  presented  here  is  based  on  the  sorting 
algorithms  presented  in  the  series  "Array  of  hope  for 
BASIC  programmers,"  and  the  technique  was  inspired 
by  a  sorting  demonstration  program  contained  on  the 
MMSForth  disk  (MMSForth  version  1.9).  The  sorting 
demonstration  on  the  Forth  disk  contains  several  sort¬ 
ing  routines,  where  the  data  being  sorted  are  single  byte 
values  contained  in  the  video  display  area. 

2.  The  Sorting  Program 

The  sorting  demonstration  program  consists  of  two 
main  sections.  The  first  section  contains  the  code  to 
generate  a  random  array  of  single-byte  values  which  is 
to  be  sorted.  The  array  is  kept  in  memory,  to  allow  the. 
same  set  of  data  to  be  used  for  each  of  the  sorting 
methods. 

The  values  generated  are  in  the  range  from  20H  to 
OBFH,  in  other  words  all  the  printable  ASCII  characters 
and  the  TRS-80  graphic  characters.  On  Model  I  com¬ 
puters  without  a  lower  case  modification,  lower  case  al¬ 
phabetical  characters  will  not  be  shown,  as  they  are 
converted  to  upper  case  when  they  are  stored  in  the 
video  RAM. 

The  menu  allows  the  selection  of  each  of  the  sorting 
routines,  or  the  generation  of  a  new  random  set  of  data. 
The  main  portion  of  the  program  consists  of  the  seven 
different  sorting  routines.  Each  routine  can  sort  up  to 
960  elements,  leaving  the  bottom  line  on  the  screen 
free  for  displaying  text  during  the  sorting  process. 

When  a  sorting  algorithm  has  been  chosen,  the  num¬ 
ber  of  elements  to  be  sorted  must  be  entered.  For  all 
except  the  insertion  sort  the  screen  is  then  filled  with 
the  randomly  generated  elements  to  be  sorted,  and  the 
sorting  process  then  begins. 

The  program  can  be  used  for  purposes  other  than 
demonstrating  various  sorting  algorithms.  Since  the  sort¬ 
ing  routines  can  be  programmed  in  different  pro¬ 
gramming  languages,  they  can  also  be  used  to  give  an 
indication  of  the  relative  execution  speed  of  various  lan¬ 
guages  and  compilers.  The  comparisons  are  perhaps  of 
limited  value,  since  all  manipulations  are  performed  on 
integer  values. 

The  program  has  been  run  in  the  version  shown  un¬ 
der  several  compilers,  and  some  of  the  algorithms  have 
been  programmed  in  other  languages. 

3.  Execution  Timings 

All  the  timings  have  been  performed  on  a  Model  I 
TRS-80  at  its  standard  speed,  running  under  New- 


dos/80  Version  2  with  interrupts  enabled.  The  timings 
may  be  improved  slightly  by  disabling  interrupts,  and 
possibly  also  by  running  under  the  ROM  BASIC  without 
any  DOS  present 

On  the  Model  III  and  on  any  other  computers  where 
wait  states  are  introduced  during  screen  scanning,  these 
waits  should  be  disabled.  On  the  Model  III,  port  236, 
bit  5  is  used  to  control  the  video  wait  function.  If  bit  5  is 
set  to  zero,  then  the  video  does  not  generate  waits,  if 
set  to  1  then  waits  will  be  generated  when  accessing  the 
video  RAM  area.  Thus  the  instruction  OUT  236,0  could 
be  inserted  in  the  program  on  the  Model  III  to  select  no 
video  wait,  64  character  mode,  and  disables  the  alter¬ 
nate  character  set. 

The  timings  have  been  performed  using  a  stopwatch 
instead  of  the  internal  timer,  and  several  of  the  times 
are  averaged  over  more  than  one  execution.  Because  of 
the  slowness  of  interpreted  BASIC,  only  a  few  times 
have  been  recorded  for  comparison  purposes. 

Each  sort  routine  used  the  maximum  960  elements 
for  the  timing  runs.  The  same  array  was  used  for  the 
timings  of  the  various  algorithms  used  with  each  com¬ 
piler. 

The  execution  speed  of  some  sorting  algorithms  are 
more  dependent  than  others  on  the  number  of  dupli¬ 
cates  in  the  data  to  be  sorted.  With  960  characters  to  be 
sorted  and  only  160  different  characters  available  there 
must  be  many  duplicates.  The  timings  should  therefore 
not  be  considered  as  absolute  values,  but  rather  as 
guides  to  the  relative  speeds  of  the  algorithms  and  com¬ 
pilers. 

In  the  languages  where  the  random  generation  func¬ 
tion  is  not  directly  available,  the  random  numbers  have 
been  chosen  by  filling  the  array  with  a  portion  of  the 
ROM  memory.  This  gives  256  different  characters  values 
in  the  array.  This  will  have  a  slight  influence  on  the  sort 
timings  for  these  languages.  The  languages  where  this 
technique  have  been  used  are  Pascal-80,  Fortran  and  as¬ 
sembler. 


4.  Interpreted  BASIC 

As  could  be  expected,  the  interpreted  BASIC  version 
of  the  program  is  the  slowest.  The  program  has  been 
written  with  spaces  between  words,  and  with  a  few 
comments  in  appropriate  places,  and  this  also  affects 
the  execution  speed  negatively. 

The  program  was  run  with  the  BASIC  supplied  with 
Newdos/80  Version  2,  and  because  of  the  lengthy  ex¬ 
ecution  times  only  a  few  of  the  sorting  algorithms  have 
been  timed. 

The  times  for  interpreted  BASIC  were  as  follows: 


Sorting  method  Time  in  seconds 

for  960  elements 


Insertion  7009 
Bubble  10260 
Shuttle  8755 
Shell  438 
Quicksort  with  insertion  391 


continued  on  page  18 
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PROGRAM  PREVIEWS 

continued  from  page  14 

case,  that  would  tell  the  reader 
what  the  program  is  for,  what  it 
does,  and  how  it  does  it,  suc¬ 
cinctly,  before  the  specific  details 
are  given.  As  it  is,  the  instructions 
start  out  by  telling  in  three  short 
sentences  how  to  start  the  program 
running,  and  then  there  is  a  dis¬ 
course  on  how  numbers  (for  disk 
names),  should  be  entered  with 
and  without  leading  zeros.  In 
general,  the  instructions  continue  in 
this  disjointed  manner,  with  no 
practical  grouping  of  the  informa¬ 
tion.  On  the  scale  of  1  to  10  as 
provided  in  these  reviews,  this 
documentation  rates  a  4. 

As  critical  as  I  am  of  the 
documentation,  the  exact  opposite 
must  be  said  of  the  program  opera¬ 
tion.  Every  function  operates  clean¬ 
ly,  and  with  phenomenal  speed.  It 
is  a  pleasure  to  use  a  program  in 
which  machine  language  is  directly 
at  work,  and  this  is  obviously 
reflected  in  the  alacrity  of  searches, 
sorts,  and  screen  listings.  As  the 
speed  of  operation  was  amply 
demonstrated  for  me  with  a  few 
hundred  file  names,  I  can  easily  ac¬ 
cept  the  producer's  claim  that  AR¬ 
RANGER  will  sort  1500  file  names 
in  just  40  seconds,  and  find  one 
program  name  from  the  same  num¬ 
ber  of  names  in  30  seconds  or  less. 
Some  error  trapping  would  be 
desirable— I  lost  all  that  I  had 
entered  at  one  point  with  a  "lock¬ 
up"  of  the  computer  when  I  inad¬ 
vertently  addressed  a  drive  that  had 
no  disk  in  it.  ARRANGER  does  not 
include  an  "information  line"  as 
some  disk  index  programs  do;  this 
may  or  may  not  be  important  to  the 
user. 


PROGRAM 

BACKGROUND 

According  to  Triple-D,  ARRAN¬ 
GER  was  three  years  in  develop¬ 
ment.  Rich  Foy  wrote  the  first  ver¬ 
sion  in  BASIC  for  personal  use. 
Then  Dan  Foy  (at  the  time,  16  years 
old),  assumed  the  task  of  writing 
the  program  in  machine  code  as  a 
challenge  to  his  capabilities.  Fie  did 
this  throughout  his  Junior  and 
Senior  years  of  High  School  before 
the  program  evolved  satisfactorily  in 
July  1982.  Dick,  Dave  and  Dan  Foy 
are  Triple-D  (get  it?). 

The  program  is  now  entirely  in 


machine  code,  and  its  source  list¬ 
ing  requires  about  160K,  and  it  re¬ 
quires  17  minutes  to  assemble  it 
into  a  CMD  file.  The  program 
makes  only  two  calls  to  ROM  — o- 
ne  for  delay  and  the  other  for  a  key¬ 
board  driver.  When  a  disk  is  up¬ 
dated,  the  entire  file  is  re-written, 
and  each  time  the  program  names 
are  sorted,  it  is  a  total  sort.  Further 
development  is  taking  place  on  the 
sort  portion  of  the  program,  and 
tentative  experiments  have  put  it  at 
about  one-half  again  of  its  present 
rate  of  speed,  which  even  now,  as 
has  been  mentioned,  is  exceed¬ 
ingly  fast. 

SUMMARY  EVALUATION 

ARRANGER  is  a  useful  and  at¬ 
tractively  priced  disk  index  pro¬ 
gram.  The  broad  array  of  informa¬ 
tion  gathering  functions,  and  the  al¬ 
phabetized  printout  will  make  it  a 
welcome  addition  to  anyone  who 
has  large  disk  records  to  maintain, 
and  wishes  to  handle  these  expedi¬ 
tiously  and  accurately,  with  an  ex¬ 
cellent  printout  of  the  results. 

ARRANGER  — Model  I,  Model  III 
(specify),  32K,  1-drive  min.  Triple-D 
Software,  P.O.  Box  642,  Layton,  UT 
84801  —$29.95 

A.  A.  Wicks 
30646  Rigger  Road 
Agoura,  CA  91301  ■ 


patch  can  fix  it  by  patching  as  fol¬ 
lows: 

PATCH  *5  (ADD=4F04,FIND=D9, 
CHG=C9). 

#17  should  be: 

PATCH  *4  (ADD=4E28,FIND=20, 
CHC=18). 

If  users  were  successful  in  making 
this  patch,  two  patches  will  be 
necessary  to  correct  it.  Since  the 
address  is  wrong  for  the  routine  as 
published,  it  may  not  have  worked 
when  users  tried  to  enter  it.  If  they 
got  a  STRING  NOT  FOUND  error, 
they  merely  will  have  to  enter  the 
correct  patch.  Otherwise: 

PATCH  *5  (ADD=4E28,FIND=1 8, 
CHG=20). 

Then  enter  the  correct  patch  #17. 
#18  should  be: 

PATCH  *0  (ADD=4EA9,FIND=CA, 
CHG=C3). 

The  correction  routine  is  the  same 
as  that  for  #17.  If  the  patch  WAS 
entered  and  accepted,  correct  it  by 

PATCH  *5  (ADD=4EA9,FIND=C3, 
CHG=CA) 

and  then  enter  the  correct  patch 
#18. 

I  know  I  don't  need  to  point  out 
that  patches  entered  incorrectly  can 
wreak  havoc  with  a  user's  DOS. 
Please  get  these  corrections  to  your 
readers  in  the  next  issue. 


LETTERS  TO  THE  EDITOR 

Errors  in  TRSDOS  Patches 


Jerome  I.  Weintraub 
690  Mountain  View  Road 
El  Cajon,  CA  92021  ■ 


I  just  received  my  February  issue 
of  Computronics  and  I  am  sorry  to 
report  that  you  made  four  errors  in 
listing  my  patches  (page  60),  and  I 
would  appreciate  it  if  you  would 
inform  your  readers.  I  am  also  going 
to  explain  to  them  how  to  correct 
the  errors  if  they  were  unfortunate 
enough  to  have  entered  them. 

#4  should  be: 

PATCH  *6  (ADD=5850, 
FIND=3A62,CHC=BF5F). 

Users  would  have  no  problem  with 
this  one,  since  the  patch  would  not 
be  able  to  "find"  the  erroneous 
values. 

#12  should  be: 

PATCH  *5  (ADD=4F04, 
FIND=D0,CHG=C9). 

Users  who  erroneously  entered  this 


THE  ULTIMATE 
IN  SOFTWARE 
UNPROTECTION 

FPS-3  IS  A  FRONT  PANEL  SIMULATOR 
FOR  THE  TANDY  COR P.TRS80  MODEL  III 

JUST  FLIP  A  SWITCH  AND!  !  ! 

THE  PROGRAM  IN  MEMORY  IS  COPIED 
TO  YOUR  CHOICE  OF  DISK  OR  TAPE  .TO 
RUN  THE  COPY  SIMPLY  BOOT  THE  DISK 
FROM  RESET  OR  LOAD  THE  TAPE  WITH 
THE  SYSTEM  COMMAND.  YOU  DO  NOT 
NEED  ANY  TECHNICAL  KNOWLEDGE 
TO  USE  THE  FPS-3.  ALL  YOU  NEED  TO 
INSTALL  THE  FPS-3  ARE  A  HALF  HOUR 
OF  YOUR  TIME  AND  A  SCREWDRIVER. 
THE  COST  FOR  A  COMPLETE  FPS-3  IS 
ONLY  $50. 


WHAT  THE  SOFTWARE  GODS 
HAVE  HIDDEN 

THIS  LITTLE 


DEVIL 


SHALL  REVEAL 

J.E.S.  GRAPHICS  t  P.O.  BOX  2752* 
TULSArOK.  74101  CALL  918  742  7104. 
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SORTING  IT  OUT 

continued  from  page  16 

The  bubble  sort  is  by  far  the  slowest,  the  time  for  960 
elements  corresponds  to  almost  3  hours!  The  quicksort 
is  more  than  25  times  faster  with  the  chosen  data,  and 
this  factor  increases  with  increasing  numbers  of  ele¬ 
ments  to  be  sorted.  The  insertion  sort  which  is  actually 
simpler  to  code  than  the  more  popular  bubble  sort  is 
about  30  percent  faster,  but  still  about  18  times  slower 
than  quicksort. 

The  difference .  in  time  between  the  Shell  sort  and 
quicksort  is  not  very  great,  the  fastest  execution  of 
Shellsort  being  actually  faster  than  the  slowest  execu¬ 
tion  of  quicksort  The  difference  can  be  expected  to  be 
greater  when  more  elements  are  to  be  sorted,  but  with 
the  numbers  chosen  here  there  is  very  little  difference 
in  speed.  Quicksort  could  possibly  be  speeded  up  by  a 
better  selection  of  the  pivot  element  when  each  por¬ 
tion  is  being  sorted. 

Another  problem  with  interpreted  BASIC  is  that  the 
execution  speed  of  a  GOTO  or  GOSUB  is  dependent  on 
the  location  of  the  destination  line  relative  to  the  source 
line,  or  its  location  relative  to  the  start  of  the  program. 
GOTO  and  GOSUB  near  the  beginning  of  the  program 
will  be  faster  than  near  the  end  of  the  program.  Quick¬ 
sort  is  therefore  at  a  disadvantage  in  this  case,  since  it  is 
positioned  near  the  end  of  the  program. 

Variables  in  a  BASIC  program  are  allocated  in  memory 
in  the  sequence  in  which  they  are  encountered  when 
the  program  is  executed.  The  variables  which  are  used 
first  will  be  referenced  faster  than  variables  which  are 
allocated  later,  since  the  search  for  a  variable  name  is  a 
sequential  search.  Thus  the  execution  speed  of  a  sort  al¬ 
gorithm  will  be  faster  if  it  is  executed  first,  rather  than 
being  executed  after  all  the  others  have  been  ex¬ 
ecuted,  since  each  of  them  allocate  new  variables. 

BASIC  program  execution  speed  can  be  improved  by 
removing  all  spaces  and  remark  statements,  but  at  the 
cost  of  making  the  programs  almost  illegible.  The  pro¬ 
gram  size  will,  of  course,  also  be  smaller.  Several  com¬ 
press  programs  are  available  to  remove  unnecessary 
spaces  from  BASIC  programs. 

5.  Compressed-interpreted-BASIC 

Some  time  ago  I  wrote  a  compress  program  which 
does  more  than  remove  uneccesary  spaces  and  com¬ 
ment  lines  from  BASIC  programs.  Lines  are  also  com¬ 
bined  into  longer  lines  when  they  do  not  contain  condi¬ 
tional  statements.  Thus  the  lines 

510  AE  =  AM  +  1 
520  PLE  =  AE  -  2 

could  be  combined  into  a  single  line  if  line  520  is  un¬ 
referenced,  whereas  the  lines 

1290  IF  JH>IH  THEN  1140 
1300  JL  =  JH  -  1 : AW  =  PEEK(JH) 

cannot  directly  be  combined  even  if  line  1300  is  un¬ 
referenced.  However,  they  can  be  combined  with  the 
addition  of  an  ELSE  between  the  two  lines. 

The  compress  program  also  removes  the  effect  of 
destination  line  location  on  GOTO  and  GOSUB  state¬ 
ments,  since  these  are  recoded  to  give  an  indirect  jump 
directly  to  the  destination  line.  Thus  all  GOTO  and 
GOSUB  statements  will  require  the  same  execution 


time,  irrespective  of  their  location  and  the  location  of 
the  destination  line. 

Only  two  of  the  sorting  algorithms  were  executed 
with  the  compressed  program,  but  the  times  give  an  in¬ 
dication  of  the  savings  possible  by  simple  means.  The 
times  were  as  follows: 

Sorting  method  Tine  in  seconds 

for  960  elements 
Shell  344 

Quicksort  with  insertion  268 

The  difference  between  the  Shell  sort  and  the  quick¬ 
sort  has  become  more  pronounced,  which  seems  to 
indicate  that  the  quicksort  in  normal  BASIC  is  being 
slowed  down  by  the  GOTO  statements,  since  the  pro¬ 
gram  lines  for  this  sort  are  located  nearest  the  end  of 
the  program. 

Compression  and  direct  GOTO  and  GOSUB  are  two 
methods  for  speeding  up  execution  of  BASIC  programs. 
Another  method  is  compilation  with  one  of  the  com¬ 
pilers  available.  The  Microsoft  compiler  was  one  of  the 
first  available,  but  also  one  of  the  most  expensive,  so  it 
does  not  exist  in  my  program  collection.  ACCEL2  from 
Southern  Software  in  England  was  one  of  the  first  com¬ 
pilers  to  appear  at  a  reasonable  price,  and  it  has  since 
been  followed  by  ACCEL3. 

6.  ACCEL2  and  ACCEL3 

The  ACCEL3  compiler  is  available  in  the  USA  from  Al¬ 
lan  Gelder  in  San  Francisco  for  $99.95.  It  is  a  rewrite  of 
ACCEL2  with  a  number  of  extra  features.  The  compiler 
is  resident  in  memory  together  with  the  program  to  be 
compiled,  and  the  program  is  compiled  directly  to 
memory,  replacing  the  original  BASIC  source. 

The  compilation  process  is  faster  in  ACCEL3  than  in 
ACCEL2,  and  took  less  than  5  seconds  for  the  sort 
demonstration  program.  The  compiled  program  was 
about  the  same  size  as  the  source,  but  to  this  must  be 
added  the  portion  of  the  compiler  which  must  be  resi¬ 
dent  at  all  times. 

There  are  very  few  restrictions  on  programs  to  be 
compiled  with  ACCEL3  compared  to  interpreted  BASIC, 
but  not  all  statements  are  compiled.  The  uncompiled 
statements  will  still  be  executed,  but  they  will  be  inter¬ 
preted.  Thus  there  is  not  much  to  be  gained  from  com¬ 
piling  programs  using  only  double  precision  real  arith¬ 
metic,  whereas  programs  using  integer  arithmetic  can  be 
speeded  up  considerably,  as  the  sorting  demonstration 
shows. 

The  times  for  ACCEL2  are  slightly  faster  in  several 
cases,  but  at  the  inconvenience  of  slower  compilation, 
larger  compiled  programs,  and  more  restrictions  on  the 
allowable  BASIC  program  constructs.  The  program  as 
shown  was  compiled  with  both  ACCEL2  and  ACCEL3 
without  any  changes. 

The  sorting  times  were  as  follows 


Sorting  method 

Time 

in  seconds  for  960  elements 

. 

ACCEL2 

ACCEL3 

Insertion 

77.8 

74.4 

Selection 

157.1 

163.7 

Bubble 

196.8 

231.1 

Sifting 

85.4 

80.1 

Shuttle 

146.9 

165.7 

Shell 

6.0 

6.9 

Quicksort  with 

insertion 

5.6 

4.8 
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PRICE  BREAKTHROUGH 


Super  Sale  on  New  Disk  Drives 

Starting  at  $  199.95  complete!! 

with  Power  Supply  and  Case. 

FULLY  WARANTEED 
single  sided  40  track  —  dual  sided  40  track 
single  sided  80  track  —  dual  sided  80  track 

RADIO  SHACK HEATH/ZENITH  —  APPLE 5 

IBM/PC  -  TEXAS  INSTRUMENTS  &  MOST  OTHER  COMPUTERS 

Drive  a  Hard  Bargain  ™ 

8  M.B.  - 1 2  M.B.  with  Power  Supply  Case,  Cables  &  Software 

Complete  Systems . t™  $1 ,595.00 

Amazing  Special!  -  dual  sided  80K  drive  with  Power  Supply  and  Case 
and  Our  ifdMfh 9fdMfh  Warranty  -  all  for  $ 299.95 L 

TOLL  FREE  ORDERING  GENERAL  and  TECHNICAL 

1-800-343-8841  1-617-872-9090 

Model  III  Internal  Disk  Drive  Kits . $Call 

Color  Computer  First  Disk  Drive  Kit . $Call 

Diskettes  of  all  sizes  (Box  of  1 0)  ..........  starting  at  $23.00 

Dot  Matrix  Printers .  . $Call 

Word  Processing  Printers . startmgat  $999.95 

Printer  Buffers  8K  to  64K . startmgat $1 43.95 

Disk  Drive  Cases  and  Power  Supplies .  starting  at  $49. 95 

DOSPLUS  —  3.4  — . SSpecial  Price 

Filler  pieces  for  Basf  slimline  drives . $2.98 

Dealer  inquiries  invited . 

Ms  SOFTWARE  SUPPORT,  INC. 

c./vfsa/Amex  and  personal  0ne  Edge11  Road,  Framingham,  MA  01701  1  'tandycorporation® 
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SORTING  IT  OUT 

continued  from  page  18 

The  improvements  compared  to  interpred  BASIC  are 
very  impressive,  ranging  from  about  50  times  to  about 
90  times  faster.  It  is  fascinating  to  watch  a  screen  being 
filled  with  random  characters  which  are  then  sorted 
within  about  5  seconds. 

The  disadvantage  of  ACCEL3  compared  to  other  com¬ 
pilers  is  that  the  disk  BASIC  interpreter  must  be  present 
while  the  program  is  being  executed,  as  must  a  portion 
of  the  compiler  resident  in  high  memory.  The  compiled 
program  can  be  saved  to  a  disk  file,  but  it  cannot  be 
loaded  and  executed  in  the  same  way  as  assembly  lan¬ 
guage  programs.  A  compiler  called  ZBASIC  is  available 
with  these  features. 

7.  ZBASIC  2.2 

ZBASIC  is  a  BASIC  compiler  written  by  Andrew 
Gariepy  and  sold  by  Simutek  in  Tucson,  AZ.  The  disk 
version  of  the  program  costs  $89.95,  and  a  tape  version 
is  available  at  a  slightly  lower  price. 

As  mentioned  above,  ZBASIC  has  a  few  advantages 
compared  to  ACCEL3,  but  it  certainly  also  has  a  num¬ 
ber  of  disadvantages.  Actually  ZBASIC  can  be  con¬ 
sidered  a  new  language,  except  for  programs  using  only 
integer  arithmetic.  Most  programs  cannot  be  written  and 
tested  in  interpreted  BASIC  and  then  compiled  for  in¬ 
creased  speed,  as  is  the  case  with  ACCEL3.  Instead,  the 
programs  must  be  written  in  the  ZBASIC  dialect,  and 
compiled  each  time  a  correction  has  been  made. 

The  process  is  simplified  for  smaller  programs  since 
the  source  program,  the  compiler,  and  the  compiled 
program  can  be  resident  in  memory  at  the  same  time. 
For  larger  programs  the  revised  source  program  must  be 
saved  to  disk,  the  compiled  program  saved  to  disk,  con¬ 
trol  passed  to  the  DOS,  and  the  program  loaded  and  ex¬ 
ecuted  from  disk.  This  is  a  rather  slow  process,  even  if 
the  compilation  is  relatively  fast,  being  only  a  few 
seconds  for  the  demonstration  program. 

The  difference  between  BASIC  and  ZBASIC  can  best 
be  illustrated  with  a  few  examples.  In  the  ZBASIC 
dialect  the  commands  AUTO  and  EDIT  are  used  to  gen¬ 
erate  a  tone  on  the  cassette  port,  CDBL  and  Cl  NT  will 
search  for  a  particular  byte  in  memory,  DELETE  gives  a 
delay  of  a  specified  number  of  milliseconds,  ERR  and 
ERL  move  portions  of  memory,  and  FN  provides  the 
remainder  after  an  integer  division.  There  are  other, 
smaller,  differences.  For  example  all  string  data  in  DATA 
statements  must  be  enclosed  in  quotes,  and  FOR  loops 
cannot  specify  a  variable  as  STEP. 

The  demonstration  program  required  a  few  minor 
changes  to  be  compiled  with  ZBASIC.  The  Shell  sort 
FOR  loop  starting  at  line  950  contains  a  variable  as 
STEP,  and  this  had  to  be  changed  for  ZBASIC.  The  FOR 
statement  is  changed  to  an  assignment  (FI  =  I),  and  the 
NEXT  statement  in  line  1010  is  changed  to  an  addition 
and  a  conditional  GOTO. 

One  of  the  main  advantages  of  ZBASIC  is  the  execu¬ 
tion  speed  for  integer  arithmetic,  as  can  be  seen  from 
the  following  times  for  the  sorting  algorithms. 

(see  top  of  next  column) 


Sorting  method 

Time  in  seconds 
for  960  elements 

Insertion 

68.2 

Selection 

90.7 

Bubble 

127.8 

Sifting 

65.8 

Shuttle 

97.5 

Shell 

5.3 

Quicksort  with  insertion  2.9 

8. 

Forth 

The  MMSForth  system 

from  Miller  Microcomputer 

Services  of  Natick,  MASS  contains  a  sorting  demonstra- 

tion  which  inspired  the 

BASIC  program  reproduced 

here.  The  demonstration  contains  four  sorting  algo¬ 
rithms,  but  there  are  two  variants  of  the  quicksort.  One 
of  them  contains  embedded  assembly  language  code 
for  improving  the  execution  speed. 

The  version  of  MMSForth  used  was  1.9  which  has 
been  superseded  by  version  2.0  some  time  ago,  but 
since  I  have  not  upgraded  to  2.0  I  have  not  been  able  to 
compare  the  times  for  the  later  version. 

One  difference  between  the  Forth  version  and  the 
other  versions  of  the  program  is  that  the  random  values 
are  produced  as  they  are  moved  to  the  screen.  If  the 
random  values  were  generated  first,  the  times  for  the 
sorting  methods  would  be  reduced  by  about  4  to  5 
seconds  each.  No  attempt  has  been  made  to  modify  the 
original  demonstration  program,  either  to  move  the  data 
generation  or  to  optimize  the  sorts. 

The  times  for  the  four  sorting  methods  were  as  fol¬ 
lows: 


Sorting  method  Time  in  seconds 

for  960  elements 


Insertion  379.7 
Selection  262.8 
Shell  29.5 
Quicksort  15.1 
Quicksort  with  assembler  10.4 


There  is  an  apparent  anomaly  between  the  relative 
times  for  insertion  sorting  and  selection  sorting,  but  this 
is  apparently  due  to  an  inefficient  coding  of  the  inser¬ 
tion  sort  in  the  Forth  demonstration,  and  perhaps  a 
more  efficient  coding  of  the  selection  sort.  I  have  not  at¬ 
tempted  to  analyze  the  algorithms  in  detail,  since  there 
is  some  truth  in  the  statement  that  Forth  is  a  WOL 
(Write  Only  Language). 

Compared  to  interpreted  BASIC  the  execution  times 
for  Forth  are  impressive,  but  they  cannot  compete  with 
the  times  for  the  two  compiled  versions  of  BASIC.  Only 
the  quicksort  implementation  with  embedded  as¬ 
sembler  code  is  comparable  in  speed  to  the  ACCEL3 
and  ZBASIC  versions. 


9.  Pascal-80 

One  of  my  friends  who  owns  a  TRS-80  has  the  Ram- 
ware  version  of  Pascal-80.  A  later,  improved  version  is 
now  sold  by  New  Classics  Software  of  Denville,  NJ  for 
$99.  The  Ramware  version  was  used  to  code  3  of  the 
sort  algorithms. 

The  Pascal-80  implementation  is  a  semi-compiler, 

continued  on  page  22 
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•CQMPUTR0NICS: 


BeaLin  Corp.  offers  you. 


TRAX-SW 


RETAIN  YOUR  *TRS-80  BLOCK  GRAPHICS  CAPABILITY  WHILE  ADDING  ALL  OF  THE 
FEATURES  OF  **GRAFTRAX-PLUS  SUCH  AS  UNDERLINE  MODE,  SUBSCRIPT/ 
SUPERSCRIPT,  LINE  DRAWING  GRAPHICS,  ETC.  PLUG  IN  BOARD  SUPPLIED 
WITH  OR  WITHOUT  **GRAFTRAX-PLUS.  (Not  available  for  serial  MX-80  Printers.) 

TRAX-SW . ($69.95) 

TRAX-SW  WITH  GRAFTRAX-PLUS  . ($129.95) 

GRAFTRAX-PLUS . ($69.95) 

GRAFTRAX  80 . ($65.00) 


LNW  MODEL  I . $1495.00 

48K/4MHZ  OPERATION 

5-8  Double  density  controller  supports  Hi-Res  B  &  W  and  Color  TRS-80  Model  I  compatible; 
supplied  with  a  NEC  JB 1260  Hi-Res  green  phosphor  monitor,  DOSPLUS  3.4  and  LNW  Basic 

LNW  MODEL  II . $1995.00 

125K  &  all  Model  I  features,  supports  Model  I  systems  and  CPM. 

Supplied  with  CPM  and  NEC  JB  1260. 

(Special  prices  for  package  purchases  -  call  for  quotation) 

PRINTER  SWITCHES 

Manual  Version-Mod  I,  I1I....$79.95  Mod  11,  XII,  &  XVI....$99.95 
Manual/Software  Selectable-Mod  I,  III...$119.95  Mod  II,  XII,  &  XVL.$129.95 

Switch  between  two  printers,  use  your  computer  to  produce  draft  copies  on  one  printer. 
Then  make  final  copies  on  letter  quality  printer  without  switching  cables. 

(MODEL  II  &XVI  requires  NO  cable  modification.) 

VERBATIM  DATA  LIFE  DISKETTS  (Box  of  10) . $29.95 


LNW  EXPANSION  SYSTEM . $369.95  f  PAGE-IT . $29.95 

TEAC  DISK  DRIVES  40TK/SS/DD  . .  ($250.00)  /  .  A  dls,k  utait?  **  Prints  basic  pr°9rams 

New  Thin  Line  drives  available  at  an  additional  $10.00.  M  ,  COMPATIBLE  WITH  MOSTQPERATING 

(one  year  warranty/pnee  includes  case  and  power  supply)  M  SYSTEMS  •  HIGHLIGHTS  REM  STATE  - 

uavcc  CMADTMnncM  tooo  on  M  MENTS  •  INDENTS  CODE  —  LINE  NUMBERS 


HAYES  SMARTMODEM . $229.00 

1200  BAUD  VERSION . $599.00 


f  STAND  OUT  •  UNPACKS  BASIC  CODE 
'  •  DOUBLE  SPACE  OPTION  •  SUPPORTS  SPECIAL 
OPTIONS  OF  15  PRINTERS 


rUSE  OUR  DATA  LINE  TO  BROWSE  THROUGH  THE  MANY  ITEMS  WE 

HAVE  AVAILABLE.  YOU  MAY  PLACE  ORDERS  OR  HAVE  SPECIFIC  QUES¬ 
TIONS  ANSWERED.  DATA  LINE  FORMAT  IS  300  BAUD,  7  BIT,  NO  PARITY. 
SATISFY  ALL  OF  YOUR  COMPUTING  NEEDS,  COMPLETE  SYSTEMS,  DISK 
DRIVES,  PRINTERS,  EPSON  RIBBONS  &  REPACKS,  PAPER  PRODUCTS,  PLUS 
MUCH  MORE.  CALL  OR  WRITE  FOR  FREE  CATALOG. 


Software  shipping  and  handling  —  $3.50 
PHONE  VOICE  (301)  490-2744  MODEM  (301)  730-2229 


•Trademark  of  Tandy  Corp. 
*  *  Trademark  of  Epson 


BeaLin  Corp. 9335  Old  Scaggsville  Rd.  Laurel,  Md.  20707 
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since  the  source  code  is  compiled  to  an  intermediate 
code,  usually  known  as  P-code.  The  P-code  is  then  inter¬ 
preted  when  the  program  is  executed.  In  theory,  and 
sometimes  also  in  practice,  the  processor  independent 
P-code  can  be  moved  from  one  processor  to  another,  by 
merely  coding  ,  the  interpreter  program  for  the  new 
processor.  This  is  not  the  intention  in  Pascal-80  which 
presumably  uses  P-code  because  it  is  simpler  to  com¬ 
pile  a  program  to  P-code  than  to  machine  code. 

The  disadvantage  of  compiling  to  P-code  is  that  the 
code  must  be  interpreted,  and  although  it  is  much  faster 
than  interpreted  BASIC,  it  is  still  considerably  slower  than 
machine  language. 

The  times  for  the  three  sort  algorithms  coded  in  Pas¬ 
cal-80  were  as  follows: 

Sorting  method  Time  in  seconds 

for  960  elements 
Insertion  988.9 

Selection  799.1 

Shell  72.0 

The  times  for  the  sorts  are  about  7  times  faster  than 
interpreted  BASIC,  but  5  to  14  times  slower  than  com¬ 
piled  BASIC;  The  advantages  of  Pascal-80  seem  to  be 
limited  to  the  improved  program  structure  which  Pascal 
provides  compared  to  BASIC.  There  seem  to  be  no  ad¬ 
vantages  in  execution  speed  compared  to  compiled 
BASIC.  , 

10.  Fortran 

Fortran  (ah  acronym  for  Formula  Translating  System) 
is  the  oldest  high-level  computer  language  still  in 
general  use.  Its  ancestry  dates  back  to  1954,  and  its  age 
certainly  shows,  even  though  several  updated  versions 
have  been  produced  since  then.  The  latest  version, 
known  as  Fortran-77,  contains  several  extensions  which 
improve  the  previous  version,  known  as  Fortran-IV. 

Microsoft  has  written  a  Fortran  compiler,  sold  by 
Radio  Shack  for  the  TRS-80  at  $99.95.  Three  of  the  sort¬ 
ing  algorithms  have  been  coded  for  an  old  version  of 
this  compiler,  and  this  coding  process  caused  a  few 
problems. 

The  Microsoft  Fortran  has  been  extended  with 
PEEK  and  POKE  functions  which  allow  it  to  reference 
the  screen  area  directly.  However,  if  the  byte  being 
PEEKed  has  the  most  significant  bit  set  it  will  be  treated 
as  a  negative  number.  This  causes  all  TRS-80  graphic 
characters  to  be  treated  as  negative,  and  thus  sorted 
before  the  printable  ASCII  characters. 

It  took  a  long  time  and  several  gray  hairs  to  get  the 
Shellsort  to  work.  The  compiler  contained  a  bug  in  the 
comparison  of  two  one-byte  values,  causing  the  sort 
routine  to  give  unexpected  results.  Thus  the  statement 

IF  (PEEK(I)  .LT.  PEEK(I  +  1))  GOTO  628 

will  give  incorrect  results  depending  on  the  two  one- 
byte  values  being  PEEKed.  The  statement  can  be 
changed  to  the  following 

J  =  PEEK (I) 

IF  (J  .LT.  PEEK(I  +  1))  GOTO  620 
which  will  function  correctly.  The  two  sets  of  state¬ 


ments  should  be  equivalent,  but  did  not  give  the  same 
results.  Since  this  was  an  old  version  of  Fortran  the  bug 
may  not  be  present  in  current  versions. 

The  Microsoft  Fortran  is  a  true  compiler,  generating 
machine  language  in  the  compilation  process.  The  gen¬ 
erated  code  should  therefore  be  fast  and  comparable  in 
speed  to  the  ACCEL3  and  ZBASIC  compilers.  The  times 
were  as  follows: 

Sorting  method  Time  in  seconds 

for  960  elements 
Insertion  83.3 

Bubble  175.5 

Shell  5.7 

The  times  are  comparable  with  ACCEL  and  ZBASIC, 
and  much  faster  than  semi-compiled  languages  such  as 
Pascal-80.  The  source  program  is  much  longer  than  the 
BASIC  program,  since  Fortran  only  allows  a  single  state¬ 
ment  on  each  line.  Also  there  are  restrictions  on  the 
subscripts  allowed  for  array  references,  on  parameters 
for  DO  loops  (the  equivalent  of  Basoc  FOR  loops),  and 
on  IF  statements  which  only  allow  a  single  statement 
and  no  ELSE  clause. 

For  those  who  have  been  brought  up  on  BASIC,  it 
would  probably  be  something  of  a  disappointment  to 
start  programming  in  Fortran.  Fortran  also  shares  a  disad¬ 
vantage  with  most  other  compiled  languages,  that  the 
correction  process  is  long  and  tedious.  First  an  editor  is 
used  to  make  the  corrections,  a  compiler  is  then  called 
to  perform  the  compilation,  a  linker  is  used  to  link  the 
program  with  the  required  modules  from  the  Fortran 
relocatable  library,  and  the  load  module  can  then  finally 
be  called  to  execute  the  program. 

11.  Assembly  Language 

Theoretically,  assembly  language  should  provide  the 
fastest  execution  speed,  but  in  practice  optimizing  com¬ 
pilers  can  often  produce  better  code  than  programmers 
who  only  occasionally  write  assembly  code.  The  Z80  has 
a  complicated  instruction  set,  and  it  can  be  difficult  to 
remember  all  the  instructions  and  the  relative  execu¬ 
tion  speed  of  each. 

Another  problem  with  assembly  language  is  that  to 
provide  legible  code,  the  code  may  have  to  be  more 
comprehensive  or  slower  than  code  which  can  be 
produced  by  a  compiler.  For  example  I  would  prefer  not 
to  write  code  which  is  self  modifying,  or  which,  as  the 
interpreter  for  TRS-80  BASIC,  contains  jumps  into  the 
middle  of  instructions.  For  example,  a  compiler  could 
concievably  generate  the  following  code: 


XOR 

A 

; Routine  entry  1 

DEFB 

01H 

; Opcode  for  LD  BC,datal6 

ENTR2  LD 

A.01H 

;Routine  entry  2 

DEFB 

01H 

ENTR3  LD 

A.80H 

; Routine  entry  3 

PUSH 

AF 

whereas  most  programmers  would  probably  prefer  the 
following  version  which  uses  one  byte  more  for  each 
entry. 


XOR 

A 

; Routine  entry  1 

JR 

CONTIN 

; Continue 

ENTR2  LD 

A.01H 

; Routine  entry  2 

continued  on  page  24 
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New  Release 

Now  supports  Mailing  Lists,  Form  Letters, 
“ZAP-PROCESSING”,  and  18  more  printer  drivers. 


STILL  ONLY 

*69.95 

IF  YOU  STILL  THINK  YOU 
HAVE  TO  SPEND  $200  FOR  A 
GREAT  WORD  PROCESSING 
SYSTEM,  THEN  YOU  NEED  TO 
READ  THIS  AD!! 


\\U  bYblbM,  I  MtN  YUU  Nbtl 

*  The  Magnificent  READTHISAD!! 

WORD  PROCESSING  SYSTEM 


For  the  TRS-80  Model  I  and 


•  Supports  over  50  different  popular  printers  includ¬ 
ing  OKIDATA  Microline  80,  82A,  83A,  84A,  Qume, 
Centronics  737,  739,  Radio  Shack  Line  Printer  IV, 
VI,  Daisy  Wheel  II,  EPSON  MX-80,  MX-100,  Graftrax, 
Graftrax  Plus,  Gemini-10,  Gemini-15,  NEC  PC- 
8023A-C,  Spinwriter  5510,  5515,  5520,  5525,  C.  Itoh 
Prowriter  8510,  Starwriter  FP-1500,  F-10,  Tec  8500R, 
Smith-Corona  TP-1,  Brother  HR-1,  COMREX  Com- 
Riter  CR-1,  IDS.  Microprism  480,  and  Diablo  630. 

•  Supports  proportional  space  right-margin  justifying 
on  Centronics  737,  739,  Radio  Shack  Line  Printer  IV, 
Daisy  Wheel  II,  Graftrax  Plus,  NEC  PC-8023A-C, 
Spinwriter  5510,  5515,  5520,  5525,  C.  Itoh  Prowriter 
8510,  Starwriter  FP-1500,  F-10,  and  Diablo  630. 

•  Powerful  Mailing  List  and  Mail-Merge  capabilities 
for  personalizing  standard  legal  documents  and 
Form  Letters,  handling  infinite  number  of  data 
records  per  run,  infinite  number  of  data  fields  per 
data  record,  and  data  fields  as  large  as  up  to  1000 
characters  each. 

•  Brand  new  feature  called  “ZAP-PROCESSING”, 
allows  you  to  display  and  edit  any  type  of  data  or 
program  file  in  “ZAP”  (byte-hexidecimal)  format. 

•  Any  character  or  symbol  your  printercan  print,  even 
dot  graphics,  can  be  used  in  mid-line  printing  with 
the  Special  Character  feature. 

•  Written  in  fast  Z80  machine  language  with  type- 
ahead  key-stroke  buffering  for  speed  typing. 

•  Single  key-stroke  control  of  all  editing  functions 
for  ease  of  use. 

•  Continuous  on-screen  display  of  word  count,  line 
count,  and  free  memory  count. 


•  Superscripts,  subscripts,  underlined,  bolded,  ex¬ 
panded  and  condensed  type  styles  -  combine  and 
intermix  within  a  line. 

•  Automatically  justifies  and  word-wraps  on  the  screen 
as  you  type. 

•  Search,  Replace,  and  Global  Search  and  Replace. 

•  Odd  and  even  page  user-definable  headers,  footers, 
and  page  number  lines,  with  automatic  page 
numbering. 

•  User-definable  linespacing,  sheet  size,  top,  bottom, 
left,  and  right  margins. 

•  Move  blocks  of  text  and  copy  blocks  of  text  from 
disk,  to  disk,  and  within  the  text. 

•  Examine  disk  directory  on  any  disk  and  kill  files 
while  editing. 

•  Powerful  full-screen  editing  features  for  EDTASM 
and  BASIC  files,  including  automatic  renumbering 
of  lines. 

•  Built  in  function  to  dump  contents  of  screen  to 
printer. 

•  Print-previewing  formats  text,  inserts  headers, 
automatically  numbers  pages,  etc.  on  the  screen 
without  printing  it  on  paper. 

•  Page  by  page  pausing  capability  for  sheet  fed 
printers. 

•  Supports  both  parallel  and  serial  printers. 

•  Printer  control  code  access. 

•  Works  with  NEWDOS,  NEWDOS80,  TRSDOS, 
MULTIDOS,  LDOS,  and  DOSPLUS  -  Single  or 
Double  Density. 

•  Compatible  with  most  all  available  spelling  checker 
programs. 


GUARANTEE 


Many  word  processing  systems  claim  theirs  are  the  best,  but  few  would  dare  guarantee  them. 
Not  us!  We  are  confident  that  ZORLOF  is  the  most  useful  word  processing  system  on  the  market 
for  under  $200.  If  you  don’t  agree,  return  it  within  30  days  for  a  full  refund. 


ANITEK SOFTWARE  PRODUCTS  □  P.O.BOX  1136  □  MELBOURNE,  FL. 32935  □  (305)259-9397 
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JR  CONTIN 

ENTR3  LD  A.80H  ;Routine  entry  3 

CONTIN  PUSH  AF 


The  second  version  is  much  easier  to  read  and  under¬ 
stand,  and  should  also  be  easier  to  modify  if  the  need 
arises. 

It  is  possible,  without  any  attempt  at  optimization  of 
code,  to  write  assembly  language  programs  which  are 
considerably  faster  in  execution  than  programs  com¬ 
piled  with  ZBASIC,  as  the  following  figures  for  four  dif¬ 
ferent  sorting  routines  show. 


Sorting  method 

Insertion 

Selection 

Bubble 

Sifting 


Time  in  seconds 
for  960  elements 
11.3 
15.7 
33.5 
11.3 


The  times  are  about  300  to  600  times  faster  than  in¬ 
terpreted  BASIC,  and  about  4  to  6  times  faster  than 
compiled  ZBASIC  code.  The  code  could  be  improved, 
and  made  even  faster.  The  bubble  sort  seems  to  be 
slower  than  necessary,  and  could  probably  be  op¬ 
timized  to  be  almost  as  fast  as  the  selection  sort. 

For  execution  speed  alone  it  seems  that  assembly  lan¬ 
guage  should  be  the  primary  choice,  but  for  speed  of 
coding  any  of  the  high  level  compiled  languages  could 
be  preferable.  Perhaps  the  ZBASIC  compiler  is  a  suitable 
compromise  since  machine  language  code  can  be  em¬ 
bedded  directly  in  BASIC  statements  where  speed  is  essen¬ 
tial,  but  for  most  integer  arithmetic  applications  the  speed 
of  the  ZBASIC  compiled  code  should  be  adequate. 


PROGRAM  LISTING 


in  1 

20  'SORT  demonstration  program 

30  'Programmed  by  Arne  Rohde,  Pilevej  31,  7600  Struer 

40  'Denmark,  August  1981 

50  DEFINT  A- S , U - Z : DEFSTR  T : B=15360 : DIM  Sl(12) ,S2(12) ,R(959) 

60  CLS:PRINT§512, "Generating  random  array":  FOR  1=0  TO  959: 
R(I)=RND(160)+31 :  NEXT' 

70  CLS 

80  PRINT  "  SORTING  DEMONSTRATION" 

90  PRINT : PRINT  "Choose  sorting  method  to  demonstrate." 

100  PRINT  "1  for  insertion  sort" 

110  PRINT  "2  for  selection  sort" 

120  PRINT  "3  for  bubble  sort" 

130  PRINT  "4  for  sifting  sort" 

140  PRINT  "5  for  shuttle  sort" 

150  PRINT  "6  for  Shell  sort" 

160  PRINT  "7  for  quicksort" 

170  PRINT"8  for  new  data  array" 

180  PRINT  "9  to  exit" 

190  TK=INKEYJ : IF  TK<"1"  OR  TK>"9"  THEN  190 
200  IF  TK="9"  THEN  1400  ELSE  IF  TK="8"  THEN  60 
210  VT=VAl  (TK) 

220  LINE  INPUT  "Array  size  (1  ■  960)?  ";TK 

230  AM=VAL (TK) : IF  AM<1  OR  AM>960  THEN  70  ELSE  AM=AM+B • 1 

240  CLS 

250  ON  VT  GOTO  300,  400,  500,  600,  700,  900,  1100 
260  GOTO  70 

300  AE=B: PRINT  @960, "Insertion  sort"; 

310  AN=R (AE - B) : POKE 1 6383 , AN : AN=PEEK (16383) 

320  I  =  AE  -  1 


330  IF  I>=B  THEN  IF  AN  <  PEEK(I)  THEN  POKE  1+1 , PEEK(I) :  I  =  I 
-  1:  GOTO  330 

340  POKE  I+l.AN:  AE=AE+1:IF  AE<=AM  THEN  310 
350  GOTO  1500 

400  FOR  I=B  TO  AM: POKE  I,  R (I -B) : NEXT : PRINT  §960, "Selection 
sort"; 

420  FOR  J=B  TO  AM-1:NKV  =  PEEK(J) 

430  FOR  I=J+1  TO  AM 

440  IF  PEEK(I)  <  NKV  THEN  NKV  =  PEEK(I):  NIP  =  I 
450  NEXT 

460  IF  NKV<PEEK(J)  THEN  AW=PEEK ( J ) : POKE  J.PEEK(NIP) : POKE 
NIP, AW 
470  NEXT 

480  GOTO  1500: REM  Extraction  completed 

500  FOR  I=B  TO  AM .POKE  I,  R(I-B):  NEXT:  PRINT  §960,  "Bubble 

sort" ; 

510  AE=AM+1 
520  PLE  =  AE  -  2 

530  IF  PLE  <  B  THEN  580:  REM  sort  complete 

540  PE  =  PLE:  PLE  =  -1:  FOR  I  =  B  TO  PE 

550  IF  PEEK(I)  >  PEEK(I  +  1)  THEN  AW  =  PEEK(I):  POKE  I,PEEK(I 

+  1):  POKE  I  +  1,  AW:  PLE  =1-1 

560  NEXT  I 

570  GOTO  530:  REM  repeat  until  no  exchange 
580  GOTO  1500: REM  Sort  terminated 

600  FOR  I=B  TO  AM: POKE  I,  R(I-B):  NEXT:  PRINT  §960,  "Sifting 
sort"; 

610  AE=AM+1 
620  FI  =  B 

630  FI  =  FI  +  1:  IF  FI  >=  AE  THEN  690:  REM  Forw  pass  end 
640  IF  PEEK(FI)  >=  PEEK(FI  ■  1)  THEN  630 
650  AW  =  PEEK(FI) :  POKE  FI,  PEEK(FI  •  1):  BI  =  FI 
660  BI  =  BI  ■  1 

670  IF  BI  >  B  THEN  IF  PEEK(BI  •  1)  >  AW  THEN  POKE  BI,  PEEK(BI 

•  1):  GOTO  660 

680  POKE  BI,  AW:  GOTO  630 

690  GOTO  1500:  REM  Sort  end 

700  FOR  I=B  TO  AM: POKE  I,  R(I-B):  NEXT:  PRINT  §960,  "Shuttle 
sort" ; 

710  AE=AM+1 

720  PLE  =  AE  ■  2:  PFE  =  B 

730  IF  PLE  <  PFE  THEN  820:  REM  sort  complete 

740  PE  =  PLE:  PLE  =  -1:  FOR  I  =  PFE  TO  PE 

750  IF  PEEK(I)  >  PEEK(I  +  1)  THEN  AW  =  PEEK(I):  POKE  I,PEEK(I 

+  1):  POKE  I  +  1,  AW:  PLE  =  I  -  1 

760  NEXT  I 

770  IF  PLE  <  PFE  THEN  820 

780  PE=PFE+1:  PFE  =  PLE:  FOR  I=PLE  +  1  TO  PE  STEP  -1 
790  IF  PEEK(I)  <  PEEKd-1)  THEN  AW=PEEK(I) : POKE  I.PEEK(I-l) : 
POKE  1-1, AW:  PFE  =  1-1 
800  NEXT 

810  GOTO  730:  REM  repeat  until  no  exchange 

820  GOTO  1500: REM  Sort  terminated 

900  FOR  I=B  TO  AM: POKE  I,  R(I-B):  NEXT:  PRINT  §960, "Shell 

sort"; 

910  AE=AM+1 

920  DST  =1:  IF  AE  -  B<  2  THEN  1040  :REM  Already  in  sequence 

930  IF  4  *  DST  +  3  <  AE  -  B  THEN  DST  =  DST  *  2  +  1:  GOTO  930 

940  FOR  I  =  B  TO  B  +  DST  -  1 

950  FOR  FI  =  I  TO  AE  -  DST  -  1  STEP  DST 

960  IF  PEEK(FI)  <=  PEEKfFI  +  DST)  THEN  1010:  REM  Sequence  OK 

970  AW  =  PEEKfFI  +  DST):  POKE  FI  +  DST,  PEEKfFI) 

980  BI  =  FI 

990  IF  BI  -  DST  >=  B  THEN  IF  PEEKfBI  -  DST)  >  AW  THEN  POKE  BI, 

PEEKfBI  -  DST):  BI  =  BI  -  DST:  GOTO  990 

1000  POKE  BI,  AW 

1010  NEXT  FI 

1020  NEXT  I 

1030  DST  =  INT (DST  /  2) :  IF  DST  >  0  THEN  940 
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1040  GOTO  1500: REM  Sort  completed 

1100  FOR  I=B  TO  AM: POKE  I,  R(I-B) :NEXT:  PRINTg960,  "Quicksort"; 
1110  AE=AM+1 

1120  S1(0)  =  B:  S2 (0)  =  AE  -  1:  REM  set  array  limit 
1130  SP  =  1:  REM  One  portion  remaining 
1140  IF  SP  <  1  THEN  1270:  REM  No  more  portions  -  end 
1150  SP  =  SP  -  1:  IL  =  Sl(SP) :  IH  =  S2(SP) 

1160  IF  IH- IL  <  11  THEN  1280 

1170  I  =  (IH  +  IL)  /  2:  REM  Middle  item  index 

1180  AP  =  PEEK(I):  REM  Make  pivot  =  A(middle) 

1190  JL  =  IL:  JH  =  IH:  REM  indexes  for  search 
1200  IF  PEEK(JL)  <  AP  THEN  JL  =  JL  +  1:  GOTO  1200 

1210  IF  PEEK(JH)  >  AP  THEN  JH  =  JH  -  1:  GOTO  1210 

1220  IF  JH<JL  THEN  1250 

1230  AW  =  PEEK(JL) :  POKE  JL,  PEEK(JH) :  POKE  JH,  AW 
1240  JL  =  JL  +  1:  JH  =  JH  -  1:  IF  JL<=JH  THEN  1200 

1250  IF  (JL  ■  1  -  IL)  <  (IH  -  JL)  THEN  Sl(SP)  =  JL:  S2(SP)  = 

IH:  IH  =  JL - 1  ELSE  Sl(SP)  =  IL:  S2(SP)  =  JL  -  1:  IL  =  JL 

1260  SP  =  SP  +  1:  GOTO  1160:  REM  Use  smallest  portion 

1270  GOTO  1500:  REM  Sort  completed 

1280  JH=IL+1 

1290  IF  JH>IH  THEN  1140 

1300  JL=JH- 1 : AW  =  PEEK(JH) 

1310  IF  JL  >=  IL  THEN  IF  AW  <  PEEK(JL)  THEN  POKE  JL+1, 

PEEK(JL):  JL  =  JL  -  1:  GOTO  1310 
1320  POKE  JL+1, AW:  JH=JH+1:  GOTO  1290 
1400  END 

1500  PRINT  @1000, "Hit  any  key  to  continue"; 

1510  TK=INKEY$ : IF  TK=""  THEN  1510  ELSE  70File  PG5604:  Sorting  it 
out 

12.  Summary 

The  following  table  presents  a  summary  of  all  the 


timings  measured  for  the  various  sorting  algorithms  and 
the  various  languages. 


Insert 

Select 

Bubble 

Sift 

Shuttle 

Shell 

Quick 

BASIC 

7009 

10260 

8755 

438 

391 

Compressed 

344 

268 

ACCEL2 

77.8 

157.1 

196.8 

85.4 

146.9 

6.0 

5.6 

ACCEL3 

74.4 

163.7 

231.1 

80.1 

165.7 

6.9 

4.8 

ZBASIC 

68.2 

90.7 

127.8 

65.8 

97.5 

5.3 

2.9 

Forth 

379.7 

262.8 

29.5 

10.4 

Pascal80 

988.9 

799.1 

72.0 

Fortran 

83.3 

175.5 

5.7 

Assembler 

11.3 

15.7 

33.5 

11.3 

13.  Further  Measurements 

Several  other  languages  and  compilers  are  available 
for  the  TRS-80,  but  not  all  of  them  allow  for  direct 
reference  to  the  screen  area.  I  have  the  TRS-80  Cobol 
compiler,  but  it  does  not  contain  any  instructions  which 
allow  for  direct  reference  to  memory.  The  sorting 
routines  could  be  coded  to  sort  an  array  and  then  write 
the  result  to  the  screen,  but  this  would  make  the  pro¬ 
gram  completely  different  from  the  others. 

Readers  are  welcome  to  try  the  BASIC  program  on 
any  other  BASIC  compilers,  or  to  recode  the  program  in 
any  other  language  which  allows  for  direct  memory 
references.  It  would  be  interesting  to  see  the  execution 
speeds  for  these  programs. 

Arne  Rohde 
Pilevej  31 

7600  Struer,  Denmark  ■ 


MULTIDOS . Version  1 .6  for  either  the  Model  I  or  the 

Model  III . $99.95 


ZDOS 


Version  1 .0  for  either  the  Model  I  or  the 
Model  III . $39.95 


EBASIC . Version  1.1  for  both  the  Model  I  or  the 

Model  III . $49.95 

EBASIC  requires  MULTIDOS  Model  I 
version  1.4  or  greater,  or  MULTIDOS 
Model  III  version  1 .3  or  greater. 

BOSS/RENUM90...  Machine  language  Basic  program  de¬ 
bugging/renumbering  utility. 


BOSS/RENUM90  (tape) . $24.95 

or  BOSS  only  (disk) . $1 5.95 


System  Innovators 

Visa  &  Mastercard  accepted.  COD 
orders  add  $1.50.  Add  $3.00  ship¬ 
ping.  Foreign  orders  add  $10.00.  Per¬ 
sonal  checks  take  two  weeks  to  clear. 
Model  I  orders  specify  single,  double, 
or  ‘P’  density. 


COSMOPOLITAN  ELECTRONICS  CORPORATION 
5700  PLYMOUTH  ROAD 
ANN  ARBOR,  Ml  48105 

Technical  line  Mich,  orders  Toll  free  orders 

(313)  668-6660  800  392-3785 
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PRACTICAL  BUSINESS  PROGRAMS 
S.  M.  Zimmerman  and  L.  M.  Conrad 
Month  #4:  CPA  Program  to  Produce  Balance  Sheet  and 

Profit  and  Loss  Statement 

Copyright®  Zimmerman  &  Conrad  1983 


This  month  continues  the  review  of  the  second  group 
of  programs  in  our  general  ledger  set.  The  first  program 
in  this  group,  TRANS,  was  reviewed  last  month.  TRANS 
is  used  to  input  the  initial  values  of  a  data  set  This 
month's  program  is  CPA,  the  program  which  produces 
the  balance  sheet  and  profit  and  loss  statement  The  last 
program  in  this  group  is  TRIAL  The  principal  function  of 
the  TRIAL  is  to  produce  a  trial  balance  to  be  used  in  the 
task  of  tracing  down  errors.  We  have  found  the  trial 
balance  program  is  seldom  used,  however  when  an  er¬ 
ror  occurs  it  is  needed.  ' ■  .  . 

•  With  the  addition  of  the  CPA  program  you  may  now 
set  up  your  chart  of  accounts,  input  your  transactions, 
and  produce  a  periodic  set  of  accounting  reports. 

The  publication  schedule  for  the  general  ledger 
system  is  as  follows; 

No  Month  Program 


1  . GLMENU  (Controls  use  of  routines). 

2  . NAME  8  START  (Initializes  chart  of 

accounts  and  firms  name). 

3.  .  TRANSACTION  (Inputs  monthly 

transactions). 

4.  ........  CPA  (Produces  Balance  sheet  & 

Income  and  Expense  statements, 
Profit  8  Loss  statement). 

5  . UPDATE  8  YEAR  (Changes  chart  of 

accounts  and  performs  year  end 
closing  tasks). 

6  . TRIAL  (Produces  trial  balance). 

7  . BALANCE  (Balances  check  book). 

8  . MILES  8  MOVE(Calculates  gas  mileage 

and  moves  files  between  disks). 


The  operational  procedures  of  for  CPA  will  be 
reviewed. 

RUNNING  THE  PROGRAM 

CPA  is  designed  to  work  on  a  printer  only.  The  intent 
is .  to  produce  an  account  report  set  for  review  by 
management  If  you  wish  a  .set  to  work  on  the  printer 
only  we  recommend  you  make  two  copies  of  CPA. 
Name  one  CPA  and  the  other  CRT.  In  the  case  of  the 
CRT  version  change  all  the  LPRINTs  to  PRINTS.  You  will 
also  have  to  add  a  counter  to  stop  the  material  on  the 
screen  so  it  may  be  read.  We  wrote  such  a  version  and 
found  we  never  used  it,  so  we  dropped  it  from  our  ac¬ 
counting  set. 

The  objective  of  CPA  is  to  produce  a  profit  and  loss 
statement  and  a  balance  sheet.  The  title  information  will 
be  printed  out  first: 

THIS  IS  CPA  PRINTER  OUTPUT  FOR  P&L/BA  LANCE 

SHEET 

The  first  question  is  necessary  if  you  are  using  an 
operating  system  with  its  own  line  counter. 


The  next  question  is  relative  to  the  name  of  the  cur¬ 
rent  transaction  file.  This  is  the  file  you  created  when 
you  ran  the  transaction  program  TRANS. 

CURRENT  TRANS? 

The  name  we  gave  to  this  file  in  our  example  was 
MAY.  The  next  question  is  relative  to  a  line  counter: 

LINE  COUNTER  (Y/N)? 

If  your  system  does  not  have  a  built  in  line,  counter 
this  question  can  be  eliminated  by  leaving  out  line  40 
when  you  copy  the  program. 

OLD  BAL? 

The  OLD  BAL  or  old  balance  sheet  information  is  the 
information  you  have  to  carry  forward  from  the  pre¬ 
vious  month.  We  named  the  old  balance  file  APRIL2  last 
month  and  in  the  next  question  will  name  the  new  OLD 
BAL  MAY2. 

NEW  OLD  BAL? 

The  next  question  is  relative  to  the  disk  used. 

DISK? 

You  will  next  be  asked  for  the  date  to  be  placed  on 
the  run. 

'  DATE? 

The  profit  and  loss  statement  will  be  printed  on  your 
printer.  When  it  is  complete  the  balance  sheet  will  be 
printed  on  the  printer.  You  will  be  given  the  oppor¬ 
tunity  to  line  up  your  paper  to  print  the  balance  sheet 
after  the  profit  loss  statement  is  complete. 

SETUP  FOR  BALANCE  SHEET  AND  ENTER? 

When  the  program  is  complete  you  will  automatically 
return  to  GLMENU. 

EXAMINING  THE  PROGRAM 

The  program  starts  out  with  a  CLEAR  290  to  make 
room  for  the  string  variables  to  be  used.  If  your  chart  of 
accounts  is  greater  than  70,  there  is  some  possibility 
you  will  get  an  OUT  OF  STRING  SPACE  error.  If  you  do, 
ail  that  is  necessary  is  to  increase  the  290  until  the  error 
disappears.  If  you  increase  290  to  far  with  only  32k  in 
your  system  you  could  run  out  of  memory.  This  is  the 
reason  we  have  kept  this  number  low. 

-  Line  20  defines  the  format  to  be  used  to  print  the  in¬ 
formation  on  your  printer.  If  your  business  requires  big¬ 
ger  numbers  than  the  formats  given,  all  you  need  to  do 
is  to  increase  the  size  and  line  up  the  headings.  The  size 
of  the  format  used  was  selected  so  as  to  fit  on  an  80 
column  printer  and  perform  the  task  for  our  business.  To 
increase  the  format  you  add  ##  signs  where  wanted.  In 
E$  the  first  set  of  pound  signs  is  for  the  account  num¬ 
ber,  the  second  set  is  for  the  debits  and  the  third  set  is 
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for  the  credits. 

Line  360  and  560  also  contain  formats  which  may 
have  to  be  adjusted  for  businesses  with  bigger  num¬ 
bers.  Line  360  is  for  the  profit  and  loss  statement,  line 
560  prints  the  totals. 

As  noted  in  the  section  on  using  the  program,  line  40 
is  included  to  allow  the  program  to  be  used  with  operat¬ 
ing  systems  such  a  DOSPLUS  which  have  built  in  line 
counters. 

Line  50  and  60  input  the  name  of  the  files  to  be  used 
and  the  disk  upon  which  you  want  to  write  the  files. 
Line  70  inputs  the  information  from  a  file  called  NO.  In 
this  file  is  stored  the  number  of  current  assets,  fixed  as¬ 
sets,  etc. 

Line  80  inputs  the  date  and  prints  it  on  the  printer. 
Line  90  inputs  the  values  of  the  debit  and  credits  as¬ 
sociated  with  each  of  the  accounts  in  the  chart  of  ac¬ 
counts.  Lines  100  and  110  input  the  values  of  the 
transactions.  In  line  100  we  placed  an  upper  limit  of 
999  transactions  per  period  on  our  system  by  the  TO 
999  in  the  middle  of  the  line.  If  you  need  to  increase 
this  number  you  may  do  so. 

In  line  120  we  close  the  file  we  have  just  read  in.  At 
no  time  in  our  system  are  more  than  three  files  open  at 
any  one  time.  When  you  start  your  system  you  do  not 
need  a  special  file  specification. 

Lines  130-150  input  and  print  the  name  to  be  placed 
on  top  of  the  accounting  reports. 

From  this  point  the  program  jumps  to  line  270  for  the 
purpose  of  closing  the  books.  This  task  is  complete  by 
line  330  and  the  job  of  printing  the  profit  and  loss  state¬ 
ment  begins.  We  used  the  old  term  profit  and  loss  in 
line  340  to  title  our  statement.  You  need  only  change 
profit  and  loss  to  income  and  expense  if  you  feel  like  it. 

From  this  point  on  to  line  630  the  task  of  printing  the 
profit  and  loss  statement  is  performed.  When  ths  job  is 
complete  the  program  is  directed  to  go  to  line  170  to 
print  the  balance  sheet.  The  task  of  printing  the  balance 
sheet  is  completed  in  line  260.  At  this  point  the  pro¬ 
gram  automatically  returns  to  GLMENU. 

PROGRAM  LISTING 

10  CLEAR  290: REM  "CPA" 

20  e $-"###  *  *  H.m.m.rn 

m.m.m-M" 

30  CLS:  PRINT  "THIS  IS  CPA  PRINTER  ONLY  OUTPUT  FOR  P&L/BALANCE 
SHEET”:  INPUT  "CURRENT  TRANS 11 ; BZ$ : N0$=" NO" : FF$=" FI LE " 

40  INPUT  "LINE  COUNTER  (Y/N)";LC$:  IF  LCJ="Y"  THEN 
CMD“FORMS(T)“ 

50  INPUT  "OLD  BAL";NX$:  INPUT  "NEW  OLD  BAL  ";NQ$:  INPUT  "DISK 
";DZ$:FQJ=FF$+"N" 

60  NP$=NXJ+"P" : NZ$=NQ$+"P"+" : "+DZ$ : NQ$=NQ$+" : "+DZ$ : SU=0 
70  OPEN'T'.l.NOJ:  FOR  1=1  TO  6:  INPUT  #1,P:N(I)=P:SU=SU+P: 

NEXT  I:  CLOSE  1:Z=SU:  DIM  X#(Z,2) ,S#(Z,2) , QP(Z) .QQ(Z) 

80  INPUT  "DATE" ; DA$:  LPRINT  DAS 

90  0PEN"I",1,NX$:  FOR  1=1  TO  SU:  INPUT#1,X#(I,1) ,X#(I,2) : 

NEXT  I 

100  CLOSE  1:  OPEN'T" ,1,BZ$:  FOR  1=1  TO  999:  INPUT  #1,P1*,P2*, 
P3*,P4*,A1#,A2#:K=P3*:KK=P4*:  IF  P1S6=0  THEN  120 
110  X#(K,1)=X#(K,1)+A1#:X#(KK12)=X#(KK,2)+A2#:  NEXT  I 
120  CLOSE  1 

130  OPEN'T'.l.FQS:  FOR  1=1  TO  5:  INPUT  #1,PP$:  LPRINT  PP$ 

140  NEXT  I 
150  CLOSE  1 


continued  on  page  43 
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NEW /  NOT  REFURBISHED 

LETTER  QUALITY  PRINTER  AND  TYPEWRITER 
IN  ONE  PACKAGE 

ONLY 

$795 

plus  shipping 

The  BYTEWRITER  is  a  new  Olivetti  Praxis  electronic  typewriter 
with  a  micro-processor  controlled  driver'  added  internally. 
No  software  driver  needed. 

Maybe  we  goofed  by  not  charging  more  for  a 
DAISY  WHEEL  PRINTER 

What’s  wrong  with  it? 

We  guess  everyone  must  be  getting  used  to 
paying  over  $2000  for  a  new  Daisy  Wheel  Printer 
and  over  $1500  for  a  refurbished  Daisy  Wheel 
Printer.  Anything  that  costs  less  must  be  junk. 
Right? 

WRONG! 

The  BYTEWRITER  is  not  only  cheaper  it  is  better! 


Following  are  some  of  the  features  of 

BYTEWRITER 

10,  12,  or  15  characters  per  inch  switch 
selectable 

Interchangeable  daisy  wheel  •  many  differ¬ 
ent  typestyles  readily  available 
Correctable  Electronic  Typewriter  opera¬ 
tion  with  nothing  to  disconnect 
Correctable  film  or  nylon  cartridge  ribbon 
Self  test  program  built  in 
Only  14  internal  moving  parts  for  incredible 
reliability,  ease,  efficiency  and  accuracy 
Two  keyboard  positions  for  standard  Amer¬ 
ican  type  or  special  characters  for  foreign 
languages 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

» 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

♦ 


Centronics  compatible  parallel  input  operates  with  * 
TRS-80,  APPLE,  IBM  and  many  others  * 

Call  or  Write  to  * 


* 

* 

* 

* 

* 

* 

***4**  +  +  #  +  +  +  +  **  +  «-*****«**  +  *** 


975  Forest  Avenue 
Lakewood,  New  Jersey  08701 
(201)  364-3005 

Master  Charge  and  Visa  accepted, 

N.J.  residents  add  5%  sales  tax. 


* 

* 
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* 

* 

* 

+ 

* 

* 
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ASK  RICHARD 

Richard  Kaplan 


Last  month  you  advised  against  using  aluminum  foil 
for  mailing  diskettes,  stating  that  this  can  cause  serious 
harm  but  achieves  nothing  positive.  This  seems  to  be 
quite  a  common  practice.  Are  you  sure  that  information 
was  correct? 

That  point  does  deserve  an  explanation.  Aluminum 
foil  will,  indeed,  protect  a  diskette  against  magnetic 
fields. 

Then  why  did  you  advise  against  using  aluminum  foil 
to  mail  diskettes? 

The  dangers  of  static  electricity  are  magnified  if  the 
aluminum  foil  touches  the  surface  of  the  diskette 
(inside  the  jacket).  This  is  why  I  cautioned  not  to  use 
aluminum  foil.  However,  if  you  place  the  diskette  in  its 
paper  jacket,  the  actual  diskette  surface  will  not  be 
exposed.  Thus,  as  long  as  a  diskette  is  in  its  protective 
paper  jacket,  aluminum  foil  can,  indeed,  offer 
protection  against  damage. 

You  mentioned  that  aluminum  foil  provides  protection 
against  “magnetic  fields."  Aren't  X-rays  also  a  source  of 
danger,  as  in  the  classic  rubber  stamp,  "Magnetic 
Media  — Do  Not  X-ray"? 

There  is  little  evidence  to  demonstrate  that  X-rays,  such 
as  those  used  in  an  airport  or  post  office  to  inspect 
packages,  cause  measurable  damage  to  a  diskette.  X- 
rays  do  not  affect  magnetic  media,  such  as  diskettes. 
Damage  to  floppy  diskettes  (erasure  of  information)  is 
often  caused  by  a  source  such  as  a  magnet  or  a  paper 
clip  which  has  become  magnetized. 

Does  the  diskette  with  the  disk  operating  system  on  it 
have  to  always  remain  in  the  drive,  or  is  it  used  only 
when  the  computer  is  first  turned  on?  — Stan  Smith; 
Clearwater,  Florida 

If  you  load  BASIC  from  a  diskette  ("Disk  BASIC"),  the 
operating  system  ( TRSDOS )  usually  must  remain  in  the 
first  drive  (drive  0,  often  called  the  "system  drive").  This 
is  necessary  because  not  all  of  BASIC  is  loaded  into  the 
computer  at  one  time.  Some  commands  in  a  program 
require  the  computer  to  load  instructions  from  the 
diskette  in  order  to  find  out  what  the  command  means. 
Thus,  as  a  general  rule,  a  diskette  containing  the  disk 
operating  system  must  always  remain  in  the  system 
drive.  But  there  are  some  exceptions  to  this  rule:  for 
example,  during  the  operation  of  a  utility  such  as 
BACKUP,  you  may  temporarily  have  a  non-system 
diskette  in  the  system  drive,  as  when  copying  a  non¬ 
system  diskette  onto  a  blank  diskette. 

What  did  you  mean  when  you  said,  "if"  you  load 
BASIC  from  disk? 

Both  the  Model  I  and  Model  III  already  have  a 
version  of  BASIC  installed  in  the  machine  itself  in  the 
form  of  ROM  (read-only  memory,  or  "permanent" 
memory).  This  version  of  BASIC  is  commonly  referred  to 
as  "Level  II  BASIC,"  or  "Cassette  BASIC,"  since  it  is  the 
version  which  is  used  on  a  TRS-80  equipped  only  with  a 
cassette  recorder. 

How  is  Cassette  BASIC  different  from  Disk  BASIC? 

Disk  BASIC  contains  more  features  than  Cassette 
BASIC  does,  such  a  built-in  sorting  (alphabetizing) 


command  on  the  MODEL  III. 

How  can  I  get  to  Cassette  BASIC  on  my  disk-based 
computer? 

On  the  Model  I  or  Model  III  (the  Model  II  does  not 
have  Cassette  BASIC)  you  can  choose  to  use  Cassette 
BASIC  by  pressing  BREAK  and  simultaneously  depressing 
the  RESET  key. 

Why  would  I  want  to  use  Cassette  BASIC  on  my 
diskette  system? 

Since  Cassette  BASIC  is  in  "permanent"  memory 
(ROM),  it  does  not  occupy  any  "temporary"  memory 
(RAM).  Therefore,  more  room  is  available  for  your 
programs  and  data. 

I  have  heard  computers  referred  to  as  "8-bit"  or  "16- 
bit."  What  does  this  mean,  and  is  it  significant  in 
choosing  a  computer? 

A  bit  is  the  smallest  unit  of  information  stored  in  a 
computer.  (8  bits  make  up  a  byte,  which  is  generally 
equal  to  one  character  in  computer  memory.)  An  8-bit 
computer  can  only  work  with  8  bits  of  information  in  its 
primary  "arithmetic  center"  at  one  time.  When  a 
computer  can  deal  with  more  bits  at  one  time,  it  is 
capable  of  more  complex  operations.  A  16-bit 
computer,  dealing  with  16  bits  at  once,  can  perform 
more  complex  calculations  with  more  information  at 
one  time,  and  16-bit  computers  often  seem  to  operate 
far  faster  than  8-bit  computers.  Another  very  important 
advantage  of  16-bit  computers  is  their  ability  to  take 
advantage  of  far  more  memory  space.  An  8-bit  computer 
can  only  directly  "address"  (use)  a  maximum  of  64K  of 
memory.  A  16-bit  computer  is  capable  of  addressing 
51 2 K  of  memory  at  once.  A  computer  that  has  more 
memory  space  can  perform  much  of  its  work  on  data 
that  is  present  in  memory,  without  having  to  repeatedly 
load  and  save  data  on  a  disk.  For  instance,  if  you  have  to 
search  through  a  data  file  on  a  diskette  for  information, 
it  will  take  much  longer  than  if  you  are  able  to  load  the 
entire  file  into  memory  at  once,  and  then  just  search 
through  memory  instead. 

Are  there  computers  which  use  more  than  16-bits? 

Yes.  Generally,  the  number  of  bits  a  computer  can 
deal  with  at  once  defines  the  "size  category"  into  which 
a  computer  falls.  Microcomputers  generally  use  8  or  16 
bits.  M/n/computers  can  handle  16  or  sometimes  32 
bits.  Mainframe  computers  (which  sometimes  fill  a 
whole  room)  generally  use  32  bits  and  can  often  work 
with  as  much  as  64  bits  of  information  at  one  time  when 
performing  certain  complex  operations. 

I  know  that  a  big  selling  point  of  the  TRS-80  Model  16 
is  its  16-bit  capability.  Should  I  buy  this  computer 
because  of  this? 

If  you  are  thinking  in  terms  of  the  future,  maybe.  In 
terms  of  the  present,  no. 

Why  should  I  not  buy  the  Model  16  now  because  of 
its  16-bit  capability? 

Before  any  computer  becomes  useful,  software  must 
be  available.  Unfortunately,  very  little  16-bit  software  is 
currently  available  for  the  Model  16.  Most  software 
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operates  by  simulating  a  Model  II  on  a  Model  16.  In 
particular,  a  16-bit  version  of  BASIC,  which  would  take 
advantage  of  the  16-bit  processor's  greater  capabilities, 
is  not  yet  available  for  the  Model  16.  As  a  result, 
programs  written  in  BASIC  will  have  little  noticable 
speed  improvement  (except  possibly  for  faster  diskette- 
access  time.) 

But  if  I  am  thinking  about  the  future,  wouldn't  it  be 
wise  to  purchase  a  Model  16  now,  since  it  will  eventually 
have  16-bit  software  available? 

Probably  not.  Radio  Shack  recently  introduced  the 
Model  12,  which  is  apparently  a  replacement  for  the 
Model  II.  Some  people  feel  that,  when  upgraded  to 
Model  16  capability,  the  Model  12  may  be  a  more 
advanced  computer  than  the  regular  Model  16  is!  In 
fact,  rumors  are  circulating  that  the  Model  16  may  itself 
be  discontinued.  (See  this  month's  "Crystal  Ball"  for 
more  on  the  Model  11/12/16  story.) 

You  said  earlier  that  8-bit  computers  can  use  64  K  of 
memory,  and  I  know  that  the  Model  II  has  64K.  But  if 
the  Models  I  and  III  are  also  8-bit  computers,  why  can 
they  only  get  a  maximum  of  48  K? 

The  Model  I  and  Model  III  both  do  have  64 K  of 
memory,  but  16K  is  in  the  form  of  ROM  which  holds 
information  that  the  computer  needs  to  have  access  to, 
such  as  Cassette  BASIC  (discussed  earlier)  and 
instructions  needed  to  generate  characters  and  place 
them  onto  the  video  screen.  Since  the  computer  can 
only  address  64K,  and  16K  is  used  for  the  ROM,  only 
48K  of  "addressing  space"  is  left  over  for  RAM. 


Speaking  of  "memory  for  the  video  screen,"  I've  often 
heard  it  said  that  my  TRS-80  has  a  memory  mapped 
video  display.  What  does  this  mean? 

A  memory  mapped  video  display  is  a  feature  of 
computers  that  have  an  area  of  memory  set  aside  which 
reflects  exactly  what  is  appearing  on  the  video  screen  at 
all  times.  In  order  to  print  a  character  on  the  screen,  the 
character  is  simply  placed  somewhere  in  the  video 
memory  (the  "map"  of  the  screen),  and  that  character 
instantly  appears  in  a  cooresponding  position  on  the 
screen.  Any  character  on  the  screen  can  be  instantly 
changed  simply  by  changing  one  character  in  the  video 
memory.  This  feature  makes  it  very  easy  to  create 
complex  and  attractive  screen  displays,  as  when  using 
features  like  BASIC's  PRINT  @  statement.  Computers 
that  have  the  ability  to  print  the  contents  of  the  video 
display  on  a  line  printer  don't  actually  read  the  screen 
itself— they  just  read  the  video  map  in  memory. 

What  is  the  alternative  to  memory-mapping? 

A  computer  without  a  memory-mapped  video  display 
would  save  some  memory,  but  it  would  have  to  use 
some  other  method  (generally  through  software)  of 
addressing  a  specific  point  on  the  screen  in  order  to 
create  a  "formatted"  display.  Computers  without  the 
ability  to  address  a  specific  point  on  the  screen  (such  as 
video  displays  for  most  computers  that  use  "dumb" 
video  terminals)  can  only  add  characters  to  the  screen 
at  the  current  position  of  the  cursor.  Video  output  is 
then  merely  a  continuous  stream  of  characters  sent  to 
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RELIABLE  LOW-COST  HIGH-SPEED  TAPING 


STANDARD  RECORDER  AND  CASSETTES. . .  .NO  REPROGRAMMING  HASSLES. . .  .NO  EXPENSIVE  MODIFICATIONS. 


NO-FUSS  HIGH  SPEED  SOFTWARE 

KWICOS  (Mod  1,4k  to  48k)  $26 

KWIK  Cassette  Operating  System  for  Mod  1 .  The  easy-to-use  Level 
"  enhancement  for  reliable  fast  taping  (select  1000-3000  baud). 
Features:  save,  load,  verify,  search,  chain-load,  catalog,  and  test- 
I  read  of  both  BASIC  and  machine-code  programs . . .  plus:  long  pgm 
names,  passwords,  debounce,  slow  ‘list’,  self  ‘backup’,  and  more. 

K0S3  (Mod  3, 16k  to  48k)  $26 

The  KWIK  Cassette  Operating  System  for  Model  3.  All  KWICOS’ 
features  at  2200  baud,  plus  KWIK  set  of:  clock  display,  Time,  Date, 
Cassette  high/low,  I/O  routing,  etc. 

KWINK  (Model  1,4k-48k)  $15 

Makes  stand-alone  fast-loading  (2x-6x) 
copies  of  any  standard  500  baud  "SYS¬ 
TEM'1  program.  (At  6x,  3  minute  program 
loads  in  44  seel) 

KL0AD  (Model  1)  $15 

Similar  to  kwink  ,  but  for  BASIC  pgms  only. 

(Specify  16-32-48k) 

KL0AN  (Mod  3, 16k-48k)  $12 

Makes  500  or  1500  baud  copy  of  any  other 
standard  ‘system’  pgm. 


TAPE  USERS! 
MAKING  TAPE  FAST,  FOOL-PROOF 
AND  FUN  IS  OUR  BUSINESS.  HAVE 
QUESTIONS?  WE’RE  HERE  TO  HELP 
...DON’T  HESITATE  TO  WRITE  OR 
CALL  FOR  FAST,  FRIENDLY  AN¬ 
SWERS.  NO  OBLIGATION. 


E3 


A KW...KNET  (Model  I  32-48K)  $15 
For  high  baud  network  down-loading 
or  tape  back-up  of  disk  (‘basic  *  only) 

KWIK  Software 

Box  328 

Bolivar,  M0  65613 
Phone  (417)  326-7154 


FOR  BEST  PHONE  ANSWERS 
Software  questions  (417)  326  7154. 
Ask  for  Lloyd.  Hardware  questions 
(417)  345  7643.  Ask  for  Wayne. 
Call  either  number  for  S/H  orders. 


TAKE  THE  SYSTEM  AND  CLOAD  OFF  YOUR  MINI) 

Plug  in  a  LemonAid  Loader  in  seconds.. .End  CTR  volume 
juggling  for  good!  Choose  the  model  you  need  below. 

LL-1... Regular,  and  'KWIK'  high  speed  loader  Mod  I... $14.99 
L80M...Deluxe  regular  and  KWIK  loader  for  Mod  I 
with  handy  pre-recorded  tape  switch.  Built-in  audio 

monitor  for  automatic  hearing  of  Saves  and  Loads . $23.50 

LPL...Our  most  versatile  loader.  For  Mod  I  regular 
500  baud  and  KWIK,  Mod  I  workalikes,  Mod  III  all 
speeds,  Color  Computer,  etc.  Built-in  audio  monitor. 

Use  with  most  CTRs.  With  matching  power  supply....$36.99 

Without  power  supply  (requires  6  vdc  25  mA) . $29.99 

NEW...CoCoCord...signal  conditioning  cable 
adaptor  for  Color  Computer  tape  loading. 

Set  CTR  volume  and  forget  it . $9.99 

Model  LSS-2... solid-state  SOFTROL  (1)  elimi¬ 
nates  ‘switch  hits'  (2)  one  second  motor-turn¬ 
off  delay  ends  end-of-program  ‘pinch  hits’  (3) 
pushbutton  tape  positioning  in  Play  and  Re¬ 
cord.. .no  plug  pulling  (4)  instant  plug-in  in- 
stallation...no  CTR  rewiring  (5)  works  with 
all  standard  plug  recorders  and  computers. 
LED  status  lamp,  For  more  info,  see  Feb 
83  issue  80  Micro,  page  432.  . $18.99 


LEMONAID  LOADER 


SKEPTICAL ?  Any  doubt  that  KWIK  model  I 
speed-up  programs  work?  Send  $3  for  DEMO 
tape  (refund  with  first  order). 

WE  FLAT  GUARANTEE.. .If  you  are  not  sat¬ 
isfied  with  ANY  product  in  this  ad,  you  get 
your  money  back.  No  hassles.  No  delay. 


Call  either  number  'til  10om  most  anv  dav  for  orders  or  info. 


softaol 

US  ppd.  $4  COD  or  overseas  (except  APO/FPOj,  MO  res,  add  tar. 


LEMONS 

TECH 

325  N.  Hwy65 
P.0.  Drawer  429 
Buffalo,  M0  65622  I 
(417)  3457643 
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BALL  BEARINGS  AND  FOOTBALL 

Gordon  Speer 


BALL  BEARINGS 

We  have  a  local  industry  that  manufactures  bearing 
balls.  They  are  made  from  steel  wire  by  cutting  into 
cylindrical  shape,  "heading"  into  spheres  (the  same 
type  of  machine  is  used  to  form  heads  on  nails  and 
bolts),  grinding  to  exact  shape  slightly  oversize,  case 
hardening  in  a  smoky  furnace,  and  polishing  to  final  size 
and  finish  in  tumblers  in  a  process  which  is  well  known 
to  lapidarists.  I  assume  they  have  lots  of  charts  and 
tables  similar  to  this  one,  but  I  suspect  they  still  don't 
use  the  metric  system  much.  This  program  produces  a 
table  on  the  video  display  which  computes  the  volumes, 
masses,  and  number-per-kilogram  of  various  sizes  of 
bearing  balls.  The  program  contains  quite  a  variety  of' 
formatting  algorithms  for  you  to  study. 

1019  CIS  :  CLEAR  100 

110  PRINT  ,“B  ALL  BEARINGS" 

120  PRINT"----INCHES -  CM  CC  GRAMS 

N/KG 

130  DATA  1/8,5/32,3/16,7/32,1/4,9/32,5/16.3/8,7/16.1/2,5/8,3/4,7/8 
140  FOR  L=1  TO  13 

150  READ  S$  'SIZE  OF  BALL  BEARING 

160  LET  D=VAL(LEFT$(S$,l))/VAL(RIGHT$(S$,LEN(S$)-2)) 

'DIAMETER 

170  LET  CM=D*2.54  'DIAMETER  IN  CENTIMETERS 

180  LET  V=4/3*3.14*(CM/2)T3  'VOLUME  IN  CC 
190  LET  N=V*7.85  'GRAMS  EACH 

200  LET  IH000/M  'NUMBER  PER  KILOGRAM 

210  PRINT  S$;TAB(7)D;TAB(17-SGN(INT(CN)))CM; 

220  PRINT  TAB(27)V;TAB(39)H; 

225  PRINT  TAB<50)  USING"######" ;N 
230  NEXT 
240  GOTO  240 

FOOTBALL 

Now  that  the  on-again  off-again  football  season  is 
finally  over  here  is  a  football  game  you  can  play  on  your 
Level-1 1  computer  and  video  display.  If  you  are  curious 
about  the  length  of  it  (or  any  other  program)  you  might 
like  to  know  that  the  available  memory  (?MEM)  after 
loading  the  program  is  5716  bytes  less  than  the  avail¬ 
able  memory  before  loading  it  Therefore  your  16K  com¬ 
puter  will  hold  programs  more  than  twice  this  size) 

John  Kemeny  mentions  Dartmouth  Football  in  his 
1972  book  Man  and  the  Computer,  and  I  have  an  idea 
this  version  is  descended  from  the  Dartmouth-Yale 
game  through  many  revisions.  You  should  remember  Dr. 
Kemeny,  a  Hungarian  immigrant  in  1940,  who 
graduated  first  in  his  New  York  City  High  School  class, 
graduated  summa  cum  laude  from  Princeton,  worked  for 
Albert  Einstein,  and  served  as  chairman  of  the  Mathe¬ 
matics  Department  at  Dartmouth  before  becoming 
President  of  Dartmouth  College.  If  you  see  a  car  bear¬ 
ing  New  Hampshire  license  plates  BASIC,  that's  him. 
He's  co-inventor  of  the  BASIC  computer  language. 

The  program  plays  a  pretty  good  game  of  football, 
complete  with  field  goal,  safety,  and  two  minute  warn¬ 
ing,  but  typical  of  the  older  basic  programs  does  not  use 
graphics,  because  of  the  limitations  of  the  old  teletype 
terminals  originally  used  with  BASIC. 


100  DIM  S(2) 

110  CLEAR  100 
120  CLS 

130  PRINT  CHR$(23) 

140  PRINT8462/F  0  0  T  B  A  L  L" 

150  FOR  N=1  TO  3000: NEXT 
160  GOSUB  3030 
170  PRINT 

180  PRINT  “THIS  IS  BIG  8  FOOTBALL 
190  PRINT  "I  WILL  QUARTERBACK  OKLAHOMA 
200  PRINT  "YOU  WILL  QUARTERBACK  NEBRASKA 
210  PRINT: PRINT  "CALL  PLAYS  BY  NUMBER:" 

220  GOSUB  240 
230  GOTO  260 

240  PRINT" 1=RUN","2=TRICKY  RUN” , "3=SH0RT  PASS";"4=L0NG 

PASS" , ” 5=PUNT" , "6=QUICK  KICK",“7=PLACE  KICK  (FIELD  GOAL)" 

250  RETURN 

260  PRINT 

270  Z=0 

280  T=0 

290  S(0)=0 

300  S(2)=0 

310  PRINT  "TOSS  OF  COIN:  H  OR  T?" 

320  ZHNKEYJ 
330  IF.  Z$n"H"  THEN  360 
340  IF  Z$="T"  THEN  360 
350  GOTO  320 

360  ON  RND (2)  GOTO  370  ,420 
370  PRINT  "OKLAHOMA  WON  THE  TOSS" 

380  GOSUB  3010 
390  P-1 

400  X-40  • 

410  GOTO  460 

420  PRINT  "NEBRASKA  WON  THE  TOSS" 

430  GOSUB  3010 
440  P=-l 
450  X=60 

460  Y=55+FIX(( . 5-RND(0) )*10) 

470  GOSUB  3010 

480  PRINT"KICKOFF  IS  GOOD  FOR"Y"YARDS" 

490  GOSUB  3010 

500  Y1=20+FIX((RND(0) • . 5)*10) 

510  IF  RND(0)<.8  THEN  530 
520  Y1=Y1+FIX(RND(0)*80) 

530  Y=Y-Y1 

540  PRINT  "RETURN  IS  GOOD  FOR" Y1 "YARDS" 

550  GOSUB  3010 
560  GOTO  1000 
570  P=1 
580  X=20 
590  Xl=20 
600  D=1 

610  PRINT  "NEBRASKA'S  BALL  ON  THEIR  OWN  20  YARD  LINE" 

620  GOSUB  3010 
630  GOTO  1940 
640  GOSUB  240 
650  PRINT" NEXT  PLAY-"; 

660  A$=INKEY$ 

670  Z=VAL(A$) 

680  IF  ABS(Z-4)<4  THEN  700 
690  GOTO  660 
700  R=RNO(0) 

710  R1=RND(0) 

720  F=0 

730  IF  Z>4  THEN  830 
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740  IF  Z<3  THEN  1)920 
,'750  PRINT  "IT'S  A  PASS-"; 

760  GOSUB  3010 

770  IF  Z=3  THEN  1160 

780  Y=FIX(160*(Rl-.5)/3+30) 

790  IF  R<.1  THEN  1240 
800  IF  R<.25  THEN  1310 
810  IF  R<.7  THEN  1270 
820  GOTO  1210 
830  Y=FIX(100*(R- . 5)/3+40) 

840  IF  Z=7  THEN  2770 
850  IF  D=4  THEN  870 
860  Y=FIX(Y*1.3) 

870  PRINT  "PUNT  IS  GOOD  FOR"Y"YARDS" 

880  GOSUB  3010 
890  IF  X+P*Y<0  THEN  2350 
900  IF'  X+P*Y>100  THEN  1650 
910  IF  F=-l  THEN  930 
920  IF  0<4  THEN  1000 

930  Yl=5+FIX((.5-RND(0))*14)-F*FIX(Y*RND(0)/3) 

940  IF  RND(0)<.9  THEN  960 
950  Y1=Y1+FIX(RND(0)*80) 

960  Y=Y-Y1 
970  F=-l 
980  GOSUB  2970 

990  PRINT  "RUN  BACK  IS  GOOD  FOR"Yl"YARDS" 

1000  F=-l 

1010  GOTO  1510 

1020  PRINT  "RUN  -  RUN  -  RUN 

1030  GOSUB  3010 

1040  IF  Z=2  THEN  1100 

1050  Y=FIX(32*(R-.5)/3+3) 

1060  IF  Rl<.05  THEN  1130 
1070  IF  Rl<.95  THEN  1330 
1080  Y=FIX (RND (X) *60 ) +Y 
1090  GOTO  1120 
1100  Y=FIX(20*R-5) 

1110  IF  Rl>.85  THEN  1080 
1120  IF  RND(0)>.13  THEN  1330 
1130  F=-l 

1140  PRINT  "FUMBLE  ***  FUMBLE" 

1150  GOTO  1330 

1160  Y=FIX(60»(Rl-.5)/3+8) 

1170  R=RND(0) 

1180  IF  R< .05  THEN  1240 
1190  IF  R<.15  THEN  1310 
1200  IF  R< . 55  THEN  1270 
1210  PRINT  "COMPLETE" 

1220  IF  RND(0)>.85  THEN  1080 
1230  GOTO  1330 

1240  PRINT  "INTERCEPTED  AFTER"Y"YARDS" 

1250  F=-l 

1260  GOTO  890 

1270  PRINT  "INCOMPLETE" 

1280  GOSUB  3010 
1290  Y=0 
1300  GOTO  1330 

1310  PRINT  "QUARTERBACK  SACKED 
1320  Y=-FIX(10*R1) 

1330  GOSUB  2970 
1340  IF  F=0  THEN  1360 
1350  PRINT  "AFTER 
1360  IF  Y<0  THEN  1410 
1370  IF  Y=0  THEN  1470 
1380  PRINT  "GAIN  OF"Y"YARDS" 

1390  FOR  Q=1  TO  700: NEXT 
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Access, 
any  record 
in  your  data  base 
i  one  second  flat. 

i-Writer  2.0  uses  a  powerful 
:ess  method  called  “two- 
level  sequential  direct  access." 
While  it  sounds  complicated,  what  it 
does  is  simple:  It  permits  access  to  any 
record  in  your  data  base  (up  to  10.000 
records)  in  one  second  flat. 

Data-Writer  is  a  powerful  data  base  manager.  Use 
it  with  a  word  processor  or  by  itself  as  a  complete  sys¬ 
tem  for  managing  textual  and  numeric  data. 

DATA  ENTRY:  You  may  define  up  to  20  variable-length 
fields  of  up  to  240  characters  each  with  your  word  proc¬ 
essor,  or  20  fixed-length  fields  of  up  to  35  characters  with 
Data-Writer's  Entry  program.  Special  features  perform 
validity  checks  on  your  data  during  entry. 

FILE  ACCESS:  Once  your  data  base  file  is  created,  use 
Access  to  review  existing  records,  make  changes  and 
add  new  records.  Access  any  record  in  your  data  base 
in  just  one  second. 

FILE  MANAGER:  Restructure  your  data  base  without 
editing  it.  Add  new  fields,  delete  fields,  rearrange  fields, 
append  one  field  to  another. 

SELECT :  Create  a  subset  of  your  file  by  specifying  limiting 
criteria,  such  as  SELECT  IF  SEX  =  F  or  SELECT  IF  AMOUNT 
>  100.  Several  select  statements  may  be  combined. 
Use  this  powerful  feature  to  send  form  letters  to  all  the 
females  in  your  data  base  or  just  to  the  doctors. 

SORT:  A  fast  two-level  sort,  lets  you  sort  on  any  field  with¬ 
out  having  previously  designated  it  as  a  key.  You  can 
even  sort  by  last  name  or  zip  code  embedded  in  a  line. 

REPORTS:  Write  reports  such  as  inventories,  accounts 
payable  and  receivable,  insurance  coverage,  stock 
issues.., the  list  is  endless.  Print  totals  and  subtotals  of 
columns  of  data.  Save  your  format  on  disk. 

MATH  PROCEDURES,  LABELS,  FORM  LETTERS. 

Use  Data-Writer  for  order  tracking,  client  billing,  expense 
recordkeeping,  operational  reporting  with  totals  and 
subtotals,  form  letter  production  to  a  large  list  or  a  sub¬ 
set,  mailing  list  maintenance  and  other  business  and 
personal  applications.  Data-Writer’s  ease  of  use  ap¬ 
peals  to  businessmen  and  secretaries  alike. 

Data-Writer  is  both  powerful  and  easy  to  use. 

Here's  what  Data-Writer  users  say: 

“I  would  like  to  congratulate  you  on  your  excellent 
work  on  Data-Writer...  I  am  a  very  satisfied  user  of  your 
systems.” 

“I  enjoy  Data-Writer  very  much  and  I  am  finding  it  very 
efficient  in  managing  my  business  accounts." 

“It’s  a  very,  very  useful  package.” 

“I  am  delighted  with  Data-Writer.  Keep  on  making  the 
best  better.” 

"Why  hasn’t  someone  done  this  before!” 

For  the  TRS-80  Models  I,  III  (48K.  2  disk' drives,  lower  case  re¬ 
quired).  Available  at  your  favorite  software  store  or  order 
from  Software  Options,  19  Rector  Street,  New  York.  NY 
10006.  (212)  785-8285.  Toll-free  order  line: 

(800)  221-1624.  Price  S145  (plus  $3  per  order 
shipping  and  handling).  New  York  State 
residents  add  sales  tax.  Visa/Mastercard 
accepted. 
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FOOTBALL 

continued  from  page  31 

1400  GOTO  1420 

1410  PRINT  "LOSS  OF" ;-Y: "YARDS" 

1420  IF  F>=0  THEN  1510 
1430  IF  RND(0)>.5  THEN  1510 
1440  PRINT  “FUMBLE  RECOVERED" 

1450  F=0 
1460  GOTO  1510 
1470  PRINT  “NO  GAIN" 

1480  GOSUB  3010 

1490  if  f<0  Then  1430 

1500  GOTO  1770 

1510  X=X+P*Y 

1520  IF  X<=0  THEN  2240 

1530  IF  X>50  THEN  1570 

1540  PRINT  “BALL  ON  NEBRASKA 'S“X“YARD  LINE" 

1550  GOSUB  3010 

1560  GOTO  1770 

1570  IF  X>=100  THEN  1610 

1580  PRINT  "BALL  ON  OKLAHOMA' S"100-X“YARD  LINE" 

1590  GOSUB  3010 
1600  GOTO  1770 
1610  IF  P<0  THEN  1670 
1620  IF  F<0  THEN  1650 
1630  P=-l 
1640  GOTO  1740 

1650  PRINT  "TOUCHBACK  -  OKLAHOMA" 

1660  GOTO  1900 

1670  IF  F<0  THEN  1740 

1680  PRINT  "»»»  SAFETY  «««" 

1690  GOSUB  2630 

1700  PRINT  "OKLAHOMA  MAKES  A  FREE  KICK  FROM  THEIR  20" 
1710  X=80 

1720  P=-l  •  ' 

1730  GOTO  460 

1740  PRINT  "»>TOUCHDOWN«<  BIG  RED!!!" 

1750  GOSUB  2670 
1760  GOTO  390 
1770  D=D+1 

1780  IF  F>=0  THEN  1860 
1790  IF  P>0  THEN  1830 
1800  PRINT  “NEBRASKA'S  BALL" 

1810  P=1 
1820  GOTO  1930 

1830  PRINT  "OKLAHOMA'S  BALL" 

1840  GOSUB  3010 
1850  GOTO  1920 

1860  IF  P*(X-X1)>=10  THEN  1930 
1870  IF  D<5  THEN  2010 
1880  IF  P<0  THEN  1800 
1890  GOTO  1830 
1900  X=80 

1910  PRINT  "SOONERS'  BALL  ON  THEIR  20" 

1920  P=-l 
1930  D=1 

1940  PRINT  "FIRST  DOWN" 

1950  GOSUB  3010 

1960  IF  P*X<P*(50+P*40)  THEN  1990 

1970  Xl=50+P*40 

1980  GOTO  2080 

1990  X1=X 

2000  GOTO  2080 

2010  ON  D  GOTO  2020  ,2030  ,2040  ,2050 
2020  PRINT"FIRST"; :GOTO  2060 
2030  PRINT“SECOND" ; :GOTO  2060 
2040  PRINT"THIRD“; :GOTO  2060 


2050  PRINT"FOURTH“; 

2060  PRINT"  DOWN  AND"10+P*(X1-X)"YARDS  TO  GO” 

2070  GOSUB  3010 
2080  PRINT 
2090  T=T+1 

2100  IF  T<>45  THEN  2140 
2110  PRINT 

2120  PRINT"»>»  TWO  MINUTE  WARNING  ««<" 

2130  PRINT 

2140  IF  T<50  THEN  2220 
2150  IF  RND(0)>.2  THEN  2220 
2160  PRINT 

2170  PRINT  “END  OF  THE  GAME" 

2180  GOSUB  3010 
2190  GOSUB  3030 
2200  RUN 
2210  RUN 

2220  IF  P>0  THEN  640 
2230  GOTO  2400 
2240  IF  F<0  THEN  2340 
2250  IF  P>0  THEN  2280 
2260  P=1 
2270  GOTO  2370 
2280  PRINT  "SAFETY" 

2290  GOSUB  2630 

2300  PRINT  "NEBRASKA  TAKES  A  FREE  KICK  FROM  THEIR  OWN  20  YARD 
LINE" 

2310  X=20 

2320  P=1 

2330  GOTO  460 

2340  IF  P>0  THEN  2370 

2350  PRINT  "TOUCHBACK  NEBRASKA" 

2360  GOTO  570 

2370  PRINT  "TOUCHDOWN  OKLAHOMA" 

2380  GOSUB  2670 
2390  GOTO  440 
2400  P=-l 

2410  IF  D>1  THEN  2470 

2420  IF  RND(0)>.5  THEN  2450 

2430  Z=3 

2440  GOTO  700 

2450  Z=1 

2460  GOTO  700 

2470  IF  D<4  THEN  2540 

2480  IF  X<=30  THEN  2510 

2490  Z=5 

2500  GOTO  700  . 

2510  IF  10+X-X1<3  THEN  2420 
2520  Z=7 
2530  GOTO  700 

2540  IF  10+X-X1<5  THEN  2420 
2550  IF  X>X1  THEN  2610 
2560  IF  RND(0)>.5  THEN  2590 
2570  Z=2 
2580  GOTO  700 
2590  Z=4 , 

2600  GOTO  700 

2610  IF  RND(0)>.25  THEN  2590 
2620  GOTO  2570 
2630  S(l-P)=S(l-P)+2 
2640  GOSUB  3030 

2650  FOR  Q=1  TO  2000: NEXT: PRINT 
2660  RETURN 

2670  FOR  Q=1  TO  2000:NEXT:IF  RND(0)>.8  THEN  2720 
2680  PRINT  "KICK  IS  GOOD!!" 

2690  S(l-P)=S(l-P)+7 
-  2700  GOSUB  3010 
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2710  GOTO  2640 

2720  PRINT  "KICK  IS  BLOCKED" 

2730  S(l-P)=S(l-P)+6 
2740  GOSUB  3010 
2750  GOTO  2640 
2760  PRINT 

2770  PRINT  "PLACE  KICK" 

2780  F=-l 

2790  IF  R>.15  THEN  2830 
2800  PRINT  "KICK  IS  BLOCKED" 

2810  Y=-5 
2820  GOTO  1510 

2830  IF  P*(X+P*Y)>=P*(P*60+50)  THEN  2900 

2840  IF  P* ( X+P*Y ) <P* 50+50  THEN  2880 

2850  PRINT  "KICK  IS  WIDE  OF  THE  GOAL" 

2860  IF  P=1  THEN  1650 

2870  GOTO  2350 

2880  PRINT  "KICK  IS  SHORT" 

2890  GOTO  500 

2900  PRINT  "FIELD  GOAL!!!!" 

2910  P=-P 

2920  S(l-P)=S(l-P)+3 

2930  GOSUB  3010 

2940  GOSUB  2640 

2950  IF  P=1  THEN  440 

2960  GOTO  390 

2970  X2=X+P*Y 

2980  IF  X2>=100  THEN  1610 

2990  IF  X2<=0  THEN  2240 

3000  RETURN 

3010  FOR  Q=1  TO  1000: NEXT 


3020  RETURN 

3030  'SUBROUTINE  FOR  GRAPHICS 
3040  CLS: PRINT  CHR$(23) 

3050  PRINT"  SCORE" 

3060  PRINT: PRINT1'  NEBRASKA“S(2) 

3070  PRINT: PRINT"  OKLAHOMA"S(0) 

3080  PRINTg960,"G  10  20  30  40  50  40  30  20  10  G"; 
3090  PRINTgl44, STRINGS! 14, 140) ; 

3100  PRINTg272,STRING$(14, 140) ; 

3110  PRINTg400, STRINGS! 14, 140) ; 

3120  PRINTg448 , STRINGS(30, 140) ; 

3130  PRINTg896,STRINGS(30, 140); 

3140  X=32 :  FOR  Y=7  TO  19 :  SET  (X ,  Y) :  NEXT 
3150  X=88 : FOR  Y=7  TO  19:SET(X,Y) :NEXT 
3160  FOR  X=0  TO  120  STEP  12 
3170  FOR  Y=22  TO  43 
3180  SET(X.Y) 

3190  NEXT 
3200  NEXT 

3210  FOR  N=1  TO  3000: NEXT 
3220  CLS: PRINT  CHRS(23) 

3230  RETURN 
3240  1 

3250  'ADAPTED  FOR  LEVEL-II 
3260  'BY  MR  GORDON  E.  SPEER 


Cordon  Speer 
3304  Woodlawn  Road 
Sterling,  IL  61081  • 


CONVERT  YOUR  SERIAL  PRINTER  TO  PARALLEL 


The  UPI  serial  printer  interfaces  allow  an  ASCII  serial  printer 
to  be  connected  to  the  parallel  printer  port  on  TRS-80 
Models  I,  II  and  III. 

Software  compatibility  problemsare  totally  eliminated  because 
the  TRS-80  “Thinks  ’that  a  parallel  printer  has  been  attached. 
No  machine  language  driver  needs  to  be  loaded  into  high 
memory.  VISACALC,  SCRIPSIT,  BASIC,  FORTRAN,  etc.  all 
work  as  if  a  parallel  printer  was  in  use. 

The  UPI  interfaces  are  completely  self  contained  and  ready 
to  use.  A  34  conductor  cable  and  connector  plugs  onto  the 
parallel  printer  port  of  the  Model  I  expansion  interface  or 
onto  the  parallel  printer  port  on  the  back  of  Models  II  and 
III.  A  DB25  socket  mates  with  the  cable  from  your  serial 
printer.  The  UPI  interfaces  convert  the  parallel  output  of  the 
TRS-80  printer  port  into  serial  data  in  both  the  RS232-C  and 
20  MA.  loop  formats. 


bd 


BINARY  DEVICES 

Formerly  SPEEDWAY  ELECTRONICS 
11560  TIMBERLAKE  LANE 
NOBLESVILLE,  IN  46060 
(317)  842-5020 


TRS  80  is  a  trademark  of  Tandy 


VISA  MasterCard 


Switch  selectable  options  include: 

•  Linefeed  after  Carriage  Return 

•  Handshake  polarity  (RS232-C) 

•  Nulls  after  Carriage  Return 

•  7  or  8  Data  Bits  per  word 

•  1  or  2  Stop  Bits  per  word 

•  Parity  or  no  parity 

•  ODD  or  EVEN  parity 

NEW  VARIABLE  BAUD  RATE  MODELS 

Switch  selectable  from  110-4800  BAUD 

UPI-3VB  for  models  I  or  II  $159.95 

UPI-2VB  for  model  II  $159.95 


CLOSEOUT  ON  SINGLE  BAUD  RATE 
MODELS 

Our  UPI-2and  UPI-3  will  drive  virtually  any  ASCII  serial  printer. 
UPI-3  for  model  I  or  III  Closeout  $109.95 

UPI-2  for  model  II  Closeout  $109.95 

Specify  BAUD  rate  50-4800.  Quantities  limited. 

Shipping  and  handling  on  all  orders.  $4.00 

90  day  warranty  on  all  interfaces 
Ten  day  return  privelege  on  UPI-3VB  and  UPI-2VB 
Longer  cables  available 
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COMPUTER  CONNECTION 


Multiplexor  for  your  Hard  Disk 


GET  IT  ALL  TOGETHER 


Hard  Disk 


Multiplexor 


Wt  Wl  IBs  1GE 


ADD  COMPUTERS  TO  YOUR  HARD  DISK 

Adding  a  hard  disk  to  your  computer  is  the  first  step  in  making  your  micro  a  powerful  computer.  Adding  more 
computers  to  your  hard  disk  makes  it  a  real  system.  The  Bi-Tech  MULTIPLEXOR  does  just  that.  Joining  a 
MULTIPLEXOR  with  your  hard  disk  sub-system  enables  you  to  share  a  hard  disk  with  many  computers,  and  it 
does  so  without  the  need  for  additional  sub-systems.  The  MULTIPLEXOR  allows  users  to  share  programs  and 
data  present  on  the  hard  disk,  thus  affording  a  true  data  base  to  all  of  its  users. 

The  Bi-Tech  MULTIPLEXOR: 

★  is  capable  of  operating  at  a  faster  speed  than  the  hard  disk.  There  is  no  waiting  time  as  with  other  systems. 

*  offers  the  same  data  transfer  rates  as  in  a  single  computer  to  hard  disk  sub-system. 

★  is  totally  transparent  to  the  user,  software,  and  hardware 

*  is  now  available  for  most  computers  with  a  BT  Hard  Disk  sub-system  and  also  for  many  other  hard  disk 
systems. 

MULTIPLEX  YS  MULTIUSER 

Unlike  multiuser  systems,  which  share  the  microprocessor,  the  concept  behind  multiplexing  is  to  share  only  the 
disk  storage.  This  frees  each  computer  to  use  as  much  processor  time  as  required  without  affecting  the  other  users. 
The  Bi-Tech  MULTIPLEXOR  links  multiple  computers  to  a  single  hard  disk  sub-system. 

MULTIPLEX  VS  NETWORK 

The  Bi-Tech  MULTIPLEXOR’S  parallel  transfer  capability  preserves  the  Hard  Disk  Drives  fast  transfer  rate.  No 
time  is  wasted  on  parallel/  serial  conversions  as  would  be  in  a  network  scheme.  Serial  networks  require  one 
computer  to  be  the  host  for  the  rest  of  the  system.  In  a  Multiplex  system  any  computer  can  be  run  completely 
independent  of  the  other  computers.  As  such,  each  computer  is  not  affected  by  a  hardware  or  software  failure  on 
another  computer.  In  addition,  a  network  also  requires  expensive  decoders  at  each  station,  but  a  Multiplex 
station  needs  only  an  inexpensive  host  adaptor  to  link  into  the  Bi-Tech  MULTIPLEXOR. 

SPECIFICATIONS: 

•  Single  Circuit  Board  •  No  External  Power  required  •  No  Speed  loss  between  CPU  &  Hard  Disk  •  4  Users  per 
Multiplexor  may  be  daisy  chained  •  WD  1000/ 1001  Compatible  •  Software  independent  • 

PRICES 

Bi-Tech  MULTIPLEXOR  complete . $795.00 

Bi-Tech  Model  1/ III  Host  Adapter . $325.00 

Bi-Tech  Model  II  Host  Adapter  . $575.00 

Bi-Tech  IBM-PC  Host  Adapter . $595.00 

_ Other  computers  available  soon  Call 

—  -  B.  T.  Enterprise  Dept.  2D  Dealer  Inquiries  Welcome 

iO.B  Carlotlgh  Road  Prices  Subject  to  Change  800  645  1165 

o  , ,  ' , 7/7/?  N  YS-  ResidentsAdd  Tax  N.Y.  Call  (516)  567-8155  1 

(516)  567-8155  (voice)  ■ 

(516)  588-5836  (modem) 

B.T.  Enterprises  is  a  division  of  Bi-Tech  Enterprises  Inc. 


BT 

ENTERPRISES 


American  Express,  Carte  Blanche,  Diners 
Club,  MasterCard  and  VISA  accepted^ 
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COMPUTER  CONNECTION 

The  Best  of  the  “Muscle  Micros 


DON’T  JUDGE  A  COMPUTER 
BY  IT’S  COVER 


...If  you  were  to  have  a  Microcomputer  operating  at  4  MHZ 
...If  you  were  to  have  a  Hard  Disk  built  in 
...If  you  were  to  have  a  floppy  disk  drive  built  in 
...If  you  were  to  have  an  Amber  Phosphor  Monitor  built  in 
...If  you  had  the  finest  Hard  Disk  Operating  System  available 


THE  BT  HARD  DISK  MODEL  III  MICROCOMPUTER 


Starting  with  a  basic  TRS-80  Model  III,  add  one  Tandon  40  Track  Dual 
Sided  Disk  Drive,  48K  of  High  Grade  NEC  Memory,  the  famous  Holmes 
Engineering  Disk  Controller  System,  with  Real  Time  Clock,  and  the  security 
of  B.T.  Enterprises  engineering,  assuring  long  life,  and  dependability! 

The  we  really  get  started:  include  a  4  M  HZ  Module  installed  to  make  the 
Model  111  Microprocessor  operate  at  twice  the  speed  of  a  standard  Radio 
Shack  Model  111.  Also  include  the  use  of  a  Superdense  Disk  Drive  forextra 
Floppy  disk  storage.  Then  have  installed  a  Hard  Disk  Drive  (Winchester 
Technology).  When  the  system  is  configured,  the  Hard  Disk  Drive  contains 
the  operating  system  and  becomes  the  master  (primary)  drive.  The  Hard  Disk 
has  40  times  the  speed  of  data  transfer  as  compared  to  a  normal  floppy  disk  as 
well  as  containing  the  storage  capacity  of  more  than  30  standard  floppy  disk 
drives. 

Each  unit  is  built  and  tested  in  our  Long  Island,  New  York  assembly  plant 
and  delivered  to  your  dealer  complete  with  a  Dos  Plus  3.5  Hard  Disk 
Operating  System  which  we  consider  to  have  the  finest  features  of  any 
Operating  System  available. 

AVAILABLE  CONFIGURATION 

4x55  Megabyte  Formated  Storage . $3995.00* 

4x10  10  Megabyte  Formated  Storage . $4145.00* 

4x15  15  Megabyte  Formated  Storage . $4295.00* 


Add  $20.00  Shipping  &  Handling 


B.T.  HARD  DISK  SUB  SYSTEMS 

We  want  you  to  have  all  the  power  that  your  TRS-80  is  capable.  These  Five,  Ten  and  Fifteen  Megabyte  formated  units  are  easy  to  use,  just 
plug  them  into  the  expansion  buss  of  your  Model  I  or  Model  III.  Comes  complete  with  the  fantastic  DOS  PLUS  3.5  Operating  System! 

SYSTEM  PRICING  is  YtpcTahvfp  Winchester  Fixer!  Disk 


5  Megabyte  Winchester  Fixed  Disk 

201505  Model  1  Version . $2399.95* 

203505  Model  111  Version . $2399.95* 

10  Megabyte  Winchester  Fixed  Disk 

201510  Model  I  Version . $2549.95* 

203510  Model  111  Version . $2549.95* 

Add  $10.00  shipping  and  handling 


15  Megabyte  Winchester  Fixed  Disk 

201520  Model  1  Version . $2699.95* 

203520  Model  III  Version . $2699.95* 

•All  B.T.  Hard  Disks  Drives  come  complete  with  the  following: 
Postman  Hard  Disk  Mailing  System  ($225  Value) 
XYZT  Library  Suppot  Option  ($79.00  Value) 

XYZT  Interactive  Control  Language  ($59.00  Value) 
DosAide  Mini-Dos  Utility  ($29.95  Value) 


FOR  YOUR  DEMONSTRATION  STOP  IN  AT  THE  FOLLOWING  DEALERS 


Bi-lech  Computer  Stores 
10  Curlough  Rd. 

Bohemia.  N.Y.  1 1716 
(516)  567-8155 

Bi*  lech  Computer  Stores 
360  Central  Ave. 

E.  Rutherford.  N.J.  07073 
(201)939-7341 

Oak  Tree  S>  stems 
20  Washington  A\e. 

Miller  Place.  S.Y.  1 1764 
(516)  744-8270 


80  Micro  Computer  Serv.  Inc. 
158  Remsen  St. 

Cohoes.  N.Y.  12047 
(518)  235-9007 

Computer  Serv.  ol  Danbur) 

I  Franklin  St. 

Danbury.  CT  06810 
(203)  743-1299 

CMD  Performance 
192  Broad  St. 

Windsor.  CT  06095 
(203)  688-3862 


Micro-Images 
146-03  25th  Rd. 

Flushing.  N.Y.  11354 
(212)  445-7124 

Ebcrhard  Engineering.  P.C. 

27  Pine  Ridge  Dr. 

Smithtown.  N.Y.  11787 
(516)  543-7777 

Micro  Computer  Center 
28362  Margurite  Pkuv  Suite  2 
Mission  Viejo.  CA  92629 
(714)495-3782 


Services  Computer  Inc. 

383  Chemin  PI.  6018 
Drummondville.  Quebec  J2C5I.9 
(819)  472-4789 

Intormatiquc  l.anaudicre  Fna 
310  Dcs  l.oisirs 

Sl-lelix  l)e  Valois  Quebec  .10  K  2 MO 
(514)889-5133 

Micro  Inlormatiquc  I  .aval  l.na 
673  Clairette 
Laual  Quebec  H7F  2\  3 
(514)  622-6514 


B.  T.  Enterprise  Dept.  2D  Dealer  Inqw 
10B  Carlough  Road  Prices  Subje 

Bohemia,  N.Y.  11716  N.Y.S.  Resit 

(516)  567-8155  (voice) 

(516)  588-5836  (modem) 

B.T.  Enterprises  is  a  division  of  Bi-Tech  Enterprises  Inc. 


Dealer  Inquiries  Welcome  Orders  Only 

Prices  Subject  to  Change  800  645  1165 

N.  Y.S.  Residents  Add  Tax  N  y.  Call  (516)  567-8155 


American  Express,  Carte  Blanche,  Diners 

Club,  MasterCard  and  VISA  accepted... 


COLOR  COMPUTER  CORNER 

55  COLOR  COMPUTER  PROGRAMS 


One  of  the  big  problems  facing  all  Color  Computer 
users  is  where  to  find  software  and  information  about 
their  computer.  The  Color  Computer  is  a  powerful  and 
versitile  machine,  but  support  from  Radio  Shack  and 
others  has  been  so  slow  in  coming  that  many  owners 
feel  a  constant  frustration  when  searching  for  software 
and  books.  Well,  a  few  companies  are  finally  starting  to 
concentrate  on  this  relatively  undeveloped  market,  and 
one  of  them  is  ARCsoft  Publishers,  who  now  have 
several  books  devoted  exclusively  to  the  TRS-80  Color 
Computer.  We're  going  to  briefly  cover  one  of  those 
books  this  month. 

55  COLOR  COMPUTER  PROGRAMS 
FOR  THE  HOME,  SCHOOL,  AND  OFFICE 

This  book  has  a  lot  of  good  points  to  recommend  it. 
The  programs  are  generally  quite  useful,  designed  for 
small  businesses,  students  and  teachers,  or  anyone  who 
wants  to  get  more  out  of  their  Color  Computer.  Each 
program  is  clearly  described,  with  a  complete  explanation 
of  its  operation,  and  the  program  listings  themselves  are 
presented  in  a  large,  uncommonly  clear  typeface  (this  is 
a  very  important  point,  as  anyone  who's  ever  typed  in  a 
program  out  of  a  book  will  understand).  In  addition  to 
providing  users  with  many  practical  programs,  this  book 
will  also  provide  many  insights  for  programming  novices. 
The  book  is  divided  into  seven  sections  by  type  of 
program.  A  highlighting  of  the  most  interesting  programs 
follows. 

Business  programs  for  the  Color  Computer  are  a  real 
rarity,  so  every  program  in  this  section  is  important. 
Here's  some  details  of  some  of  the  best  programs: 

PROFIT  ESTIMATOR  helps  answer  a  common  question 
in  the  business  office.  Whether  your  business  sells  great 
quantities  of  wholesale  merchandise,  smaller  quantities 
over  the  counter,  or  single  items  via  mail  order,  you 
need  to  be  able  to  get  a  fast  estimate  of  your  expected 
cash  flow  and  potential  profits.  Thisfprogram  provides 
an  "instant  advisor,"  allowing  fast  comparisons  for  quick 
decisions. 

Civen  information  about  quantities  of  items,  prices, 
quantity  sold,  discounts,  etc.,  the  program  will  calculate 
unit  price,  unit  profit,  gross  profit,  return  percentages, 
sales  needed  to  break  even,  and  more  (depending  on 
which  part  of  the  program  you're  using). 

INVOICING  is  a  program  that  is  designed  to  speed  up 
the  process  of  calculating  all  of  the  various  totals 
needed  to  fill  in  an  invoice.  After  entering  information 
for  each  item  sold,  the  program  will  display  the  total 
retail  price  of  the  items  on  the  invoice,  sales  tax  (if 
applicable),  shipping  charges  and  the  total  due.  This 
data  can  then  be  quickly  entered  on  the  invoice,  or,  if 
you  have  a  printer  attached,  you  can  easily  modify  the 
program  to  print  out  the  results  on  paper. 

WAGES  is  designed  as  a  quick  calculator  of  gross 
wages  for  all  your  employees.  Given  hours  and  pay  rate 
for  each  employee,  the  program  returns  the  gross  pay 
for  each,  including  overtime  for  employees  who  have 
worked  over  40  hours. 


INVENTORY  REVIEW  this  time  saving  program  is 
designed  to  produce  a  useful  report  of  inventory  levels 
and  other  helpful  information.  After  entering  product 
descriptions,  names  of  suppliers,  retail  price  and 
quantity  presently  on  hand,  the  program  will  sort  all  of 
the  information  and  then  produce  an  inventory  report, 
sorted  alphabetically  by  manufacturer,  then  again  sorted 
by  product  name.  Whether  you  have  results  displayed 
on  the  video  screen,  or  print  them  on  your  printer,  the 
report  will  include  total  number  of  items  in  inventory, 
number  of  different  items  in  various  price  ranges,  and 
total  retail  value  of  the  inventory. 

Other  programs  in  this  section  provide  instant 
calculations  of  price  markups,  interest,  unit  price,  and 
sales  commissions,  and  will  produce  business  graphs 
and  charts. 

Programs  for  students  consist  of  a  series  of  tests  on 
state  capitals,  major  U.S.  cities,  Canadian  provinces,  the 
history  of  invention,  moderate  and  advanced  math 
"flash"  quizzes,  a  hex  chart,  ASCII  codes,  and 
techniques  for  graphing. 

Teachers  will  find  a  useful  program  for  evaluating 
exam  scores,  an  advanced  version  that  alphabetizes 
scores  by  student's  names,  a  universal  testing  program 
that  accepts  any  type  of  questions  and  answers,  and  a 
class  roll  sorter. 

Five  music  programs  are  provided:  a  simple  piano 
program  which  plays  notes  when  you  press  keys  on  the 
keyboard,  a  musical  scale  test,  a  keyboard  music  player 
that  shows  an  animated  keyboard  while  you  play  a  tune, 
and  two  preprogrammed  tunes:  a  minuet  and  a  ragtime 
piece. 

A  wide  variety  of  other  programs  are.  also  included, 
from  useful  tools  to  games.  Electric  bill  analysis  accepts 
data  for  a  whole  year  of  bills  and  reports  on  your  energy 
usage;  two  photography  programs  do  calculations  for 
flash  exposures  and  ctoseups;  a  program  that  creates  a 
sorted  list  of  names  and  addresses;  a  program  that 
synchronizes  graphics  on  your  computer  with  pretaped 
sounds  from  your  cassette  recorder;  a  savings  account 
interest  calculator;  and  a  series  of  graphics  and  game 
programs:  DRAW  STRAWS,  UP  IN  LIGHTS,  DICE, 
PASSWORD,  CIVILIZATION,  KALIEDOSCOPE,  SKETCH 
PAD,  BLINKING  MAN,  CHINESE  WATER  TORTURE,  THE 
TUNNEL,  PORTHOLE,  WAVING  WOMAN,  and  YELLOW 
TIME  BOMB. 

The  book  ends  up  with  a  useful  appendix  that  gives  a 
series  of  charts  of  Color  BASIC  and  Extended  Color 
BASIC  functions  and  statements,  operators,  video  and 
graphics  control  codes,  control  keys,  special  characters 
and  error  messages. 

This  book  will  be  a  welcome  addition  to  the  library  of 
any  Color  Computer  owner,  and  by  using  these 
programs  you'll  become  familiar  with  many  program¬ 
ming  techniques  that  you  can  put  to  use  immediately  in 
your  own  programs. 

55  Color  Computer  Programs  for  the  Home,  School, 
and  Office  by  Ron  Clark,  published  by  Arcsoft 
Publishers,  Woodsboro  MD  21798,  126  pages  (paper), 
$9.95.  Available  from  H  &  E  Computronics,  (800)  431- 
2818.  ■ 


36  April  1983 


•CQMRJTRQraiCS; 


POCKET  COMPUTER  CORNER 
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This  Month  Inspection  Experiment/Game 
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This  pocket  computer  experiment/game  is  designed 
to  aid  in  the  understanding  of  the  limitations  of  100% 
inspection  and  in  number  recognition  for  a  young 
person.  Because  the  program  is  written  on  the  pocket 
computer  it  may  be  played  anytime  by  a  child,  or  may 
be  used  in  a  professional  meeting  if  enough  pocket 
computers  are  available 

The  game  consists  of  identifying  how  many  three  or 
less  digit  numbers  of  the  numbers  printed  on  the 
computer's  display,  are  between  a  lower  specification 
limit  and  an  upper  specification  limit  inclusive.  For  a 
childs,  use  it  is  suggest  you  make  the  game  simpler  by 
defining  the  lower  limit  as  zero  and  asking  the  child  to 
count  the  number  of  numbers  less  than  100,  or  the 
number  of  two  digit  numbers  rather  than  three  etc.  The 
use  of  this  program,  like  many  other,  is  limited  only  by 
your  imagination. 

The  computer  is  started  with  a  seed  number  and  then 
proceeds  to  produce  a  series  of  random  numbers.  As 
they  are  produced,  the  computer  counts  the  number 
beyond  the  defined  limits  and  prints  the  random 
number  of  the  display  with  a  PAUSE  statement  for  a 
small  amount  of  time.  To  play  the  game  the  player 
counts  the  number  of  numbers  in  the  define  range  as 
the  numbers  are  flashed  on  the  display.  When  the  game 
is  over  the  players  results  may  be  compared  to  the 
computer's  count. 

PLAYING  THE  GAME 

Make  sure  the  computer  is  in  the  RUN  or  DEFinable 
modes  before  you  try  to  run  it.  Typing  R.  ENTER  starts 
the  program  in  either  mode.  The  first  thing  you  will  see 
is  INSPECTION  EXPERIMENT  on  the  computer's 
display.  The  next  thing  you  see  is  the  question: 

(N)EW  (R)UN? 

This  menu  allows  you  to  start  a  new  cycle  with  a  new 
random  number,  or  to  run  a  new  cycle  using  the 
random  number  currently  in  the  computer.  It  is 
suggested  you  continue  to  use  the  current  random 
number  once  you  start  the  program.  Use  the  (N)EW 
option  only  if  you  wish  to  control  the  results  for  some 
reason,  or  when  the  program  is  first  placed  in  the 
computer. 

Because  of  your  computer's  limited  memory  there  are 
no  built-in  error  traps  to  prevent  you  from  making 
errors.  You  must  answer  with  the  single  letter  inside  the 
parentheses  as  shown.  If  you  make  an  error,  the 
computer  assumes  you  selected  the  (R)UN  option  and 
starts  a  new  cycle. 

If  you  selected  the  (N)EW  option  by  typing  N  ENTER 
you  will  see: 

SEED  NUMBER? 

A  seed  number  is  needed  to  start  your  random 
number  generator.  Selecting  a  small  number  will  create 
a  potential  start  up  problem.  The  first  few  numbers 


generated  will  be  zeros.  To  avoid  this  select  a  number 
seven  digits  long.  Type  1111111  ENTER  as  your  answer 
to  the  above  question  to  duplicate  our  results. 

The  next  question  is: 

NUMBER  OF  ITEMS? 

There  is  no  limit  to  how  many  items  you  wish  flashed 
on  the  screen.  It  is  suggested  you  start  with  a  small 
number  when  used  as  a  childs  game  so  as  not  to  lose 
the  child's  attention.  When  used  as  an  inspection 
experiment  you  want  to  have  at  least  100  items  flashed, 
so  some  fatigue  factor  enters  into  the  inspection 
process.  One  concept  the  program  can  be  used  to 
demonstrate,  is  the  boring  nature  of  100%  inspection 
and  the  possible  errors  which  occur.  It  is  normal  for 
individuals  to  count  good  items  as  bad,  as  well  as  bad 
items  as  good.  For  the  sample  run  let's  run  25  numbers. 
Type  25  ENTER  to  proceed  to  the  next  question: 

LSL/USL? 

LSL  stands  for  lower  specification  limit  and  USL 
stands  for  upper  specification  limit.  In  the  case  of  a 
child,  if  you  wish  them  to  count  the  number  of  two 
digits  the  lower  specification  limit  would  be  10,  the 
smallest  two  digit  number,  and  the  upper  specification 
limit  would  be  99,  the  largest  two  digit  number.  Let's 
use  these  limits  for  our  experiment.  Type  10  ENTER, 
and  for  the  next  question  mark  do  as  follows: 

?  99  ENTER 

Take  care  to  notice  the  LSL  is  the  lower  limit  of  the 
items  being  counted  by  the  computer,  and  USL  is  the 
upper  limit  of  the  items.  This  way  of  thinking  may  not 
be  consistent  with  the  manner  in  which  you  specificy 
the  limits  of  quality  of  parts.  It  is  convenient  to  use  this 
approach  in  the  program. 

The  computer  now  flashes  25  numbers  on  the 
display.  Count  the  numbers  between  10  and  99 
inclusive  with  care.  When  the  computer  is  finished  you 
will  see  the  instruction: 

ENTER  FOR  COUNT? 

After  you  have  pressed  the  ENTER  key  you  should 

see: 

DEFECTIVES  3 

If  your  computer  happens  to  return  to  the  first  menu 
without  stopping  (this  seems  to  happen  to  us  often)  you 
can  still  obtain  the  same  results.  Press  the  BREAK  key 
and  type  R.  40  and  you  will  see  the  results  indicated 
above,  or  type  Q  ENTER  and  the  value  3  will  appear  on 
the  screen. 

EXAMINING  THE  PROGRAM 

This  program  is  relatively  short.  Only  13  lines  of  code 
were  needed  to  complete  the  routine.  Following  is  a  list 
of  the  variables  have  been  used  in  this  program: 
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Variable  Use 

A$  To  direct  the  flow  from  the  first  menu 

A  As  a  counter  in  FOR/NEXT  statement 

B  The  random  seed  number 

C  The  number  of  numbers  to  be  flashed  on 

display 

D  The  lower  specification  limit. 

E  The  upper  specification  limit. 

F  The  number  flashed  on  the  screen. 

Q  A  counter  for  number  of  defective  items. 

Z  A  dummy  to  use  to  stop  the  program. 

The  letter  A  has  two  uses.  Its  first  use  is  in  the  main 
menu.  Once  this  use  is  complete  the  letter  is  reused  for 
a  counter  in  the  FOR/NEXT  loop  producing  the  numbers 
on  the  display. 

The  program  may  be  divided  into  three  parts.  Part  I 
consists  of  lines  1,  2,  3,  and  4.  Line  one  prints  the  title 
of  the  program  on  the  display  and  then  uses  an  INPUT 
statement  to  route  the  program  to  either  start  (N)EW,  or 
to  make  a  (R)UN. 

Line  2  inputs  a  new  seed  number  if  the  player  tells 
the  computer  to  start  new.  The  seed  number  is 
multiplied  by  100,000  and  then  made  into  a  postive 
number  in  line  2.  This  aids  in  getting  the  random 
number  generator  started  just  in  case  the  player 
selected  a  small  number. 

Line  3  is  used  to  select  the  number  of  items  to  be 
flashed  on  the  display.  There  is  no  limit  on  this  variable. 
Line  4  inputs  the  lower  and  upper  specification  limits. 
Careful  selection  of  these  limits  will  result  in  games  or 
experiments  for  different  purposes. 

Part  II  of  the  program  is  contained  in  lines  14  through 
20.  This  code  prints  the  random  number  on  the  display 
and  counts,  using  the  variable  Q,  the  number  of 
numbers  between  the  lower  and  upper  specification 
limits.  If  you  wish  to  change  the  size  of  the  random 
number  being  produced,  you  need  only  change  the 
value  which  is  divided  into  B  in  line  17.  In  line  7  the 
value  of  B  is  divided  by  100,000  and  changed  to  an 
integer  to  yield  a  number  between  0  and  999  inclusive. 

In  line  18  the  number  of  numbers  falling  between  the 
lower  specification  limit  and  the  upper  specification  are 
counted.  Notice  the  number  between  the  limits  are 
counted  not  the  number  outside  the  limits  1 
The  next  part  of  the  program  consists  of  lines  30  and 
40.  This  code  is  used  delay  the  program  and  to  print  the 
number  of  items  inside  the  specification  limits. 

PROGRAM  LISTING 

1: PAUSE  "INSPECTION  EXPERIMENT" : INPUT  "(N)EW  (R)UN  V  ;A$ 

2: IF  AJ=1"N"  INPUT  "SEED  NUMBER?" ;B:B=10T5*ABS  (8) 

3: INPUT  "NUMBER  OF  ITEMS  ";C 
4:  INPUT  "LSL/USL  ?";D,E 
14: Q=0 

15: FOR  A=1  TO  C 

16:B=23B-INT  (23B/(10T8+l))*(l0t8*l) 

17 : F=INT  (B/(10t5)) 

18: IF  F<=DIF  F  <=  E  LET  Q=Q+1 
19: PAUSE  "  ";F 
20: NEXT  A 

30: INPUT  "ENTER  FOR  COUNT  ?";Z 
40: PRINT  "DEFECTIVES  ";Q:G0T0  1 


SUMMARY 

This  program  can  be  used  both  as  an  industrial 
experiment  or  as  a  game.  It  is  useful  for  illustrating  the 
problems  associated  with  100%  inspection,  or  to  aid  a 
child  in  learning  numbers. 

Steven  M.  Zimmerman,  Ph.D. 

College  of  Business  and  Management  Studies 
University  of  South  Alabama 
Mobile,  Alabama  36688 

Leo  M.  Conrad 
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Stanley  M.  Zimmerman 
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ASK  RICHARD 

continued  from  page  29 

the  screen  (as  with  a  teletype  terminal  that  can  only 
print  a  continuous  stream  of  characters  on  paper). 

I've  been  told  that  the  CP/M  operating  system  is 
supposed  to  run  on  just  about  any  microcomputer,  and 
that  this  is  why  programs  written  for  CP/M  will  also  run 
on  any  computer.  But  then  someone  else  told  me  that 
there's  a  different  version  of  CP/M  for  every  machine. 
How  can  this  be  if  its  supposed  to  be  the  same  system 
on  all  computers? 

The  CP/M  operating  system  is  supplied  in  a  different 
version  for  every  CP/M  computer.  It  has  to  be  different 
for  every  computer,  because  the  hardware  (the 
microprocessor  and  its  supporting  circuitry,  and  the 
machine's  peripheral  equipment)  is  different  on  each 
computer.  When  two  computers  use  different  proces¬ 
sors,  the  "machine  language"  used  by  the  two  machines 
is  different.  The  different  versions  of  CP/M  are  written  in 
the  native  machine  language  for  each  computer. 

Put  very  simply,  when  you  run  the  CP/M  operating 
system  on  different  computers,  it  makes  them  all  act  as 
if  they  were  the  same  kind  of  computer— CP/M 
essentially  acts  as  a  "translator"  between  the  machine 
itself  and  higher  level  languages  such  as  MBASIC.  A 
computer  which  is  equipped  with  its  own  version  of 
CP/M  (and  the  MBASIC  language)  can  then  run  any 
program  written  in  MBASIC,  no  matter  what  computer 
the  program  was  originally  written  for.  A  computer 
running  CP/M  "emulates",  or  mimics,  all  other 
computers  that  use  CP/M. 

Very  often  I've  been  told  that  I  should  purchase 
MBASIC  to  run  a  particular  program.  What  is  MBASIC, 
and  why  must  I  purchase  it? 

MBASIC  is  a  version  of  the  BASIC  programming 
language  written  by  Microsoft,  Inc.  Microsoft  has 
become  more  or  less  an  "industry  standard,"  since  they 
wrote  the  first  (and  most  popular)  commercial  version  of 
BASIC  for  microcomputers.  MBASIC  is  Microsoft's 
BASIC  which  is  designed  to  run  on  CP/M  computers. 

Because  of  the  way  in  which  MBASIC  works,  you 
need  to  have  MBASIC  present  in  your  computer  not 
only  to  write  an  MBASIC  program,  but  also  when  you 
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run  the  program.  Many  commercial  software  programs 
are  written  in  MBASIC  because  MBASIC  allows  easy 
corrections  and  updates,  and  also  because  many  users 
of  mass-marketed  software  like  to  be  able  to  modify  and 
customize  programs  for  their  specific  needs.  If  a 
program  is  written  in  machine  language  instead  of  a 
language  like  MBASIC,  modifications  become  extremely 
difficult,  if  not  impossible. 

What  do  "ASCII"  and  "EBCDIC"  stand  for? 

ASCII  (American  Standard  Code  for  Information 
Interchange)  and  EBCDIC  (Extended  Binary  Coded 
Decimal  Interchange  Code)  are  two  codes  for  represent¬ 
ing  data  in  a  computer.  EBCDIC  is  used  mainly  in  large 
mainframe  IBM  computers.  All  present  microcomputers 
use  the  ASCII  code,  in  which  every  character  is  assigned 
a  decimal  number  from  1  to  127.  95  of  these  characters 
are  more  or  less  standard  among  all  computers  (all  52 
upper  and  lower  case  letters,  numbers,  and  certain 
punctuation  and  special  symbols).  This  standardization 
is  what  enables  computers  built  by  different  manufac¬ 
turers  to  "talk"  with  each  other,  and  to  use  the  same 
standard  printers. 

What  is  a  "diskette  emulator"? 

A  diskette  emulator  is  a  device  (sometimes  called  a 
"SEMIDISK"  or  "RAMDISK"),  usually  available  as  a 
circuit  board  which  is  installed  in  a  computer,  which  can 
hold  a  very  large  amount  of  information  in  RAM 
memory.  When  such  a  device  is  installed,  it  is  usually 
designed  so  that  is  uses  exactly  the  same  commands  to 
store  and  retrieve  information  as  those  used  for  floppy 
diskette  drives.  The  result  is  tremendously  decreased 
access  time  when  using  the  emulator  instead  of  a 
diskette  drive. 

Diskette  emulators  are  available  for  many  different 
computers.  Their  price  is  generally  in  the  $500  to  $2000 
range. 

I'm  currently  shopping  around  for  a  printer  and, 
frankly,  I'm  confused  by  so  many  specifications.  To 
begin  with,  should  I  buy  a  dot  matrix  or  a  letter  quality 
printer? 

Letter  quality  printers  produce  printed  copy  as  good 
as  (or  better  than)  a  typewriter's  output.  Unfortunately, 
they  are  expensive  and  relatively  slow  — from  about  10 
to  55  cps  (characters  per  second). 

Dot-matrix  printers  have  letters  formed  by  dots 
arranged  in  a  grid,  or  matrix.  Many  people  feel  that 
output  from  this  type  of  printer  is  unacceptable  for 
business  correspondence.  However,  dot-matrix  printers 
are  usually  much  faster  than  letter  quality  printers  (often 
120  cps  or  more),  and  they  are  also  much  more 
inexpensive. 

What  is  a  bi-directional  printer? 

A  bi-directional  printer  prints  from  left  to  right  on  one 
line,  then  on  the  next  line,  prints  backwards  from  right 
to  left.  Since  time  which  would  normally  be  spent 
returning  the  print  head  to  the  beginning  of  the  line  is 
saved,  bi-directionality  is  a  speed-increasing  feature. 

What  is  the  difference  between  bi-directionality  and 

logic  seeking ? 

A  bi-directional  printer  alternates  printing  lines 
forwards  and  backwards.  A  logic-seeking  printer,  on  the 
other  hand,  calculates  the  direction  to  print  which  would 
require  the  shortest  traveling  distance  for  the  print  head. 


If  a  line  printed  from  left  to  right  only  contained  5 
characters,  the  printer  would  return  the  print  head  to  the 
left  and  print  from  left  to  right  instead  of  moving  the  print 
head  over  all  the  way  to  the  right  side  of  the  paper  first. 
Very  often,  a  printer  which  is  bi-directional  will  be 
logic-seeking  as  well. 

What  are  proportional  spacing  and  justification ? 

A  proportionally-spaced  character  set  is  one  in  which 
different  characters  are  different  widths,  depending 
upon  their  actual  size.  For  example,  a  lower-case  letter 
"i"  takes  up  far  less  space  than  a  capital  "M". 
Proportionally-spaced  printing  resembles  typesetting 
and  appears  more  pleasing  to  the  eye. 

Justification  (sometimes  called  "right-justification" 
refers  to  adding  spaces  in  a  printed  line  in  order  to  line 
up  both  left  and  right  margins  exactly.  For  example, 
newspapers  are  always  right-justified;  the  right  margin 
always  ends  exactly  at  the  same  point  due  to  small 
amounts  of  space  added  in  between  words,  and 
sometimes  between  the  letters  in  each  word. 

What  width  of  paper  should  my  printer  be  able  to 
handle? 

This  is  a  very  common  question  among  new  computer 
owners,  and  it  illustrates  a  quite  prevalent  misconcep¬ 
tion.  The  width  of  the  paper  that  your  printer  uses  may 
have  nothing  to  do  with  the  number  of  characters  that 
may  be  printed  on  each  line,  since  different  printers  will 
print  varying  numbers  of  characters  per  line,  and  many 
dot-matrix  printers  allow  you  to  select  several  different 
sizes  of  characters. 

Then  how  many  characters  should  my  printer  print  on 
each  line? 

Some  printers  are  available  which  only  print  40 
characters  per  line.  I  do  not  recommend  purchasing 
these,  since  little  software  is  available  for  such  a  printer. 

An  80-character  printer  is  the  smallest  line  width  for 
practical  use.  Much  business  software  is  designed  for 
such  a  configuration,  and  a  compressed  printing  mode 
(which  will  print  132  characters  per  line,  in  small  type) 
is  usually  available  for  printing  larger  reports  on  dot¬ 
matrix  printers. 

For  serious  work,  I  recommend  purchasing  a  132- 
character  printer.  That  is,  if  you  plan  to  run  your 
business  with  your  computer  or  to  generate  large 
amounts  of  printed  reports,  132  characters  per  line  are 
usually  required. 

But  didn't  you  just  say  that  an  80-column  printer  with 
a  compressed  printing  mode  can  print  132-columns? 

Yes,  but  if  you  plan  to  use  your  printer  for  serious 
applications,  it  is  usually  worth  the  additional  expense 
to  purchase  a  full  132-character  printer.  In  order  to 
activate  the  compressed  printing  mode,  a  short 
command  must  be  given  to  the  computer,  but 
sometimes  this  command  cannot  be  given  to  the  printer 
when  using  a  commercially  sold  program. 

Questions  from  readers  on  all  aspects  of  personal 
computing  are  welcomed.  Please  enclose  a  self- 
addressed,  stamped  envelope  with  your  request. 

Richard  Kaplan 
H  &  E  Computronics 
50  North  Pascack  Road 
Spring  Valley,  NY  10977  ■ 
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BEGINNER'S  CORNER 

Spencer  Koenig 

Some  not-so-BASIC  Editor  Functions 


If  you've  stuck  with  me  so  far,  you'll  remember  we've 
been  going  over  the  various  edit  functions  for  several  of 
the  most  popular  Disk  Operating  Systemd  (DOSs).  Last 
time  I  was  just  getting  into  MULTIDOS.  This  is  a  very 
interesting  operating  system  in  that  it  has  some  edit 
functions  similar  to  those  I've  seen  on  mainframe  editor 
packages  (I've  worked  with  WYLBUR  on  the  New  York 
City  University  IBM  360/370  system). 

Just  as  an  aside,  I  found  working  with  WYLBUR  a  little 
mind  boggling.  It's  such  a  huge  program  with  so  many 
options  that  it  can  be  inhibiting  to  try  to  accomplish  the 
simplest  of  commands.  The  manual,  covering  the  edit 
functions  as  well  as  information  on  the  operating  system 
itself,  must  weigh  10  pounds  plus.  It's  really  immense. 

MULTIDOS  isn't  as  large  or  difficult  to  work  with,  but 
it  does  have  an  option  similar  to  one  of  WYLBUR's  (and 
yes,  there  is  an  ORVYL  too).  MULTIDOS  has  an  option 
called  GLOBAL  EDITS.  The  global  editing  feature  allows 
you  to  make  changes  throughout  the  whole  program 
with  one  command.  You  can  change  variable  names, 
integers,  strings,  and  items  contained  in  a  data  list.  You 
can  also  compress  strings,  split  lines  or  merge  them,  and 
change  "reserved"  words.  See  EXAMPLE  9. 

EXAMPLE  9 

MULTIDOS  Global  Edit  Commands 
-<ENTER>  Enter  Global  Edit  Mode 


Once  you're  in  Global  Edit  Mode,  a  message  will 
appear  which  will  ask  you  for  the  Target  and  line  number. 
See  EXAMPLE  10. 

EXAMPLE.  1)5 

Line  Target  REPLACED  BY 

T  =  R  = 

In  order  to  change  any  of  the  items  mentioned 
above,  you  enter  the  name  or  label,  which  can  be  as 
many  as  255  characters  long.  The  item,  however  cannot 
be  contained  in  quotes.  If  you  look  at  EXAMPLE  11  you 
can  see  a  list  of  the  types  of  changes  possible  using 
MULTIDOS.  It  looks  pretty  incredible. 

EXAMPLE  11 

Changes  available  under  Global  Edit 

Variables  1-255  characters  ending  with  <ENTER> 

Letters  in  quotes  precede  the  item  with  a  "  $  "  sign 

Changing  the  first  enter  the  target  character  like  this 
letter  of  multi-  X'  as  X,X1,XRAY.  It  must  be  followed 
lettered  variables  by  a  single  quote 


To  change  the  second  enter  the  target  character  enclosed  in 
character  leaving  single  quotes  'X1 
the  first  alone. 

(Notice:  Lower  case  is  not  acceptable  for  variables  or 
reserved  words.) 

To  change  reserved  Changing  "RUN"  to  -RUN  you  must  use 
words  or  using  "<"  and  “>"  to  bracket  the  target  item 

arithmetic  operators 
or  any  of  the  control 
codes 

Merging  adjacent  Lines  can  only  be  merged  to  the  lines 
line  numbers  after  them  i.e.  line  1  and  2  become 

line  1.  Answer  the  TARGET  question 
with  a  7"  and  the  line  #  to  be 
appended  to. 

Splitting  lines  Lines  can  only  be  split  into 

consecutive  lines  else  run  time  errors 
will  occur  when  references  to  lines  in 
between  the  split  lines  occur.  The  in 
between  lines  will  not  be  found. 

To  use  the  split  function  answer  the 
TARGET  query  with  -§##.  -###  is  the 
word  to  be  split.  If  the  target  is  a 
reserved  word  then  bracket  it  with  "<“ 
If  no  target  is  specified  then 
the  line  will  split  at  the  first  colon 
encountered  giving  you  line  1  and  line 
2. 

Splitting  lines  can  be  hazardous.  I  suggest  you  look  at 
EXAMPLE  12. 

EXAMPLE  12 

The  splitting  of  lines: 

10  PRINT"HELLO" : PRINT"BYE" 

T=- , LINE  A=  10,  LINE  B=  20 

The  resulting  lines  look  like  this: 

10  PRINT"HELLO" 

20  PRINT"BYE" 

Splitting  lines  at  reserved  words: 

10  A$="HELL0" : B$="BYE“ : PRINT  A$: PRINT  B$ 

T=-<PRINT>  B$,  LINE  A=10.  LINE  B=20 

Leaving  the  results: 

10  A$=“HELL0“ : B$="BYE" 

20  PRINT  8$ 
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Once  you  have  entered  in  the  TARGET,  you  will  be 
asked  to  enter  the  range  of  lines  within  which  to  search. 
Afterwards  you  will  enter  in  the  REPLACEMENT.  If  by 
chance  you  made  a  mistake  in  the  TARGET,  simply  hit 
the  <ENTER>  key  in  answer  to  the  replacement 
question.  This  will  return  you  to  the  TARGET  query 
whereby  you  use  the  SHIFT-H®  keys  to  delete  the 
TARGET  and  then  enter  in  a  new  one. 

When  you've  passed  this  stage  you  will  go  on  to  the 
next  (Thanks  for  that  piece  of  info)  where  you  will  be 
asked  (one  more  time)  if  you  are  sure  you  want  these 
changes  made  (Y/N).  This  is  also  the  last  chance  to 
correct  any  errors,  so  you'd  better  be  sure.  If  you 
answer  "Y,"  the  fun  begins,  and  you  begin  to  see  the 
changes  take  place  under  the  title  lines: 

LINE  TARGET  REPLACE. 

To  break  out  of  the  Global  Edit  mode,  hit  <ENTER> 
after  a  successful  change  or  <BREAK>  at  any  of  the 
prompts,  and  that  about  covers  the  subject  as  it  relates 
to  specific  editor  in  some  typical  and  well  conceived 
operating  systems  (thank  you  Howard  Cosell).  Right? 
Wrong,  keyboard  breath  (I  like  Hill  Street  Blues). 

Now  we  get  to  the  topic  that  I've  been  building  up  to 
for  so  long.  Can  you  use  an  ordinary  and/or  not  so 
ordinary  word  processor  to  do  some  of  the  same  work 
more  efficiently,  less  dangerously,  and  (sometimes)  with 
less  muss  and  fuss?  Good  question  I  The  answer  is  a 
definite  MAYBE,  depending  on  circumstances  and  what 
you  want  to  do. 

Most  of  the  things  that  your  specific  operating  system 
BASIC  can  do  can  be  done  using  a  word  processor  as 
long  as  there  is  good  planning  and  careful  consideration 
before,  during  and  after  program  coding.  First,  let's  look 
at  the  the  can's  and  can'ts  of  using  a  word  processor. 
See  EXAMPLE  13. 


EXAMPLE  13 


COMMANDS 

BASIC 

WORD  PROCESSOR 

1.AUT0 

YES 

NO 

2.RENUM  ENTIRE  PROGRAM 

YES 

NO 

3. WORKS  WITH  NON-ASCII 
FILE 

YES 

NO 

4. LIST  SPECIFIC  LINES 
(TOP  OR  LAST  OR 'IN 
BETWEEN) 

YES 

YES  (USING  'FIND 
STRING1) 

5. PAGE  COMMAND 

YES 

SOME 

6. USES  LABELS  WITH 

LINE  NUMBERS 

NO 

YES  (  BUT  MUST  BE 
DELETED  BEFORE 
RUNNING  THE  PROGRAM 

7. MOVE  BLOCK 

SOME  DO 

YES  (COPIED  NOT 
RENUMBERED) 

8. RELOCATE  LINES  OR 
BLOCKS 

SOME  DO 

CAN  BE  COAXED 

SEE  TEXT 

9. MERGING  LINES 

SOME 

YES 

If). MERGING  PROGRAMS 

YES 

YES 

11. GLOBAL  VARIABLE  EDITS 

SOME 

YES 

12. CHANGING  CHARACTER 

YES 

YES 

13. CHANGE  STRING  TO  NEW 
STRING 

SOME 

YES 

14. INSERT  CHARACTER 

YES 

YES 

15. EXTEND  LINE 

YES 

YES 

16. SCROLL  DISPLAY  BY 

LINE 

YES 

YES 

17. SCROLL  DISPLAY  BY 

PAGE 

NO 

SOME  DO 

18. FIND  STRING 

SOME 

YES 

19. MACRO  (BLOCK)  DELETE 

YES 

YES 

2fl. RANGE -OF -LINE  DELETE 

YES 

SEE  BLOCK  DELETE 

21. REDEFINE  KEYS 

NO 

NO 

22  BASIC  LINES  LONGER 

THAN  255  CHARACTERS 

NO 

YES  (YOU  SHOULD  BE 
CAREFUL  WITH  THIS 
BECAUSE  IT  WILL 
RESULT  IN  ERRORS) 

The  next  to  last  command  is  often  found  in  those 
BASIC  EDITORS,  such  as  XBE/CMD  from  Computer 
Applications  Unlimited  or  IRV  from  Creative  Software. 
Sometimes  these  types  of  editors  also  let  you  add 
graphics  to  BASIC  programs  more  easily. 

OK.  Now  that  we're  past  the  comparison  stage  and 
you  see  what  can't  be  done  (easily),  let's  get  down  to 
work.  The  object  of  this  adventure  is  to  find  a  way  to  get 
around  the  limitations  of  the  word  processor  .and  to 
make  those  commands  that  BASIC  can  do  work  with  us. 

To  begin,  the  word  processor  I  use  is  Electric  Pencil. 
It  produces  an  ASCII  file  without  any  additional 
appendages  for  any  printers  unless  you  want  them.  It 
isn't  as  fancy  as  some  of  the  others  around,  such  as  Lazy 
Writer  or  Scripsit,  but  it  is  easy  to  use  and  manipulate.  I 
mention  this  because  I  intend  to  give  my  famous  short 
cuts  and  suggestions  as  if  you  too  were  using  Pencil.  If 
you  are  using  those  other  guys,  then  you  may  have  to 
make  some  adjustments  to  my  instructions. 

How,  then,  do  we  get  around  the  limitations  of 
commands  1-3?  To  get  around  the  AUTO  command,  we 
have  to  create  a  file  that  contains  nothing  but  line 
numbers.  You  do  this  when  in  BASIC  by  typing  "AUTO" 
(big  help  huh)  and  putting  a  "  '  "  or  REM  marker  on 
each  line.  You  then  save  the  file  in  ASCII  format. 

This  brings  us  to  command  3.  Can  we  use  a  file  other 
than  an  ASCII  file?  The  answer  is  no,  because  word 
processors  are  essentially  fancy  string  handlers.  If  a  file 
isn't  in  STRING/ASCII  format,  then  the  word  processor 
can't  read  it.  The  reason  the  E.P.  can't  read  it  is  because 
it  looks  for  an  end-of-file  marker  that  consists  of  two 
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zeros  (00).  Once  it  finds  these  it  stops  loading  the  file.  If 
a  file  is  saved  in  its  normal  "BINARY"  format,  it  then 
consists  of  a  bunch  of  1's  and  0's.  The  chances  are  good 
that  there  will  be  many  many  double  1  's  and  especially 
double  0's. 

Command  2  is  no  real  problem.  W.P's  just  can't 
renumber  lines  either.  I  suggest  that  if  you  need  to 
renumber  a  program  you  do  it  in  BASIC.  It's  a  lot  easier. 

Commands  4  and  6,  listing  specific  lines  and/or  using 
labels  are,  as  t  see  it,  related  techniques.  Here's  why. 
When  you're  programming,  it's  a  good  idea  to  program 
in  a  modular  fashion.  By  this,  I  mean  that  your  program 
should  be  broken  down  into  smaller  sections  that  do 
some  simple  part  of  the  overall  task.  Some  texts  refer  to 
this  as  TOP  DOWN  programming.  If  you  think  this  way 
when  you're  working,  then  you  can  give  each  section  a 
specific  and  unique  name  or  LABEL.  Once  you've 
assigned  a  LABEL  to  the  section  of  code,  you  can  find  it 
again  very  easily  using  the  W.P's  FIND  STRING 
command.  See  EXAMPLE  14. 


EXAMPLE  14 

I  suggest  you  put  the  labels  in  front  of  the  line  number. 

5'  INITIALIZE 
10  OEFINTA-Z 
20  PRINT  "HI  THERE  0 

25 'SECOND  SECTION 


After  naming  the  section  INITIALIZE,  it  then  becomes 
very  easy  for  Electric  Pencil  to  find  it  again.  This  same 
technique  can  be  used  as  well  with  specific  lines, 
variables  or  variable  strings. 

One  of  the  best  techniques  to  learn  is  choosing  your 
variable  names  carefully.  If  this  is  planned  from  the 
outset,  then  changing  them  globally  becomes  a  minor 
problem.  See  EXAMPLE  15. 


EXAMPLE  15 

5'  INPUT  SCORES 

10  DIM  TS(151)‘  test  scores 

20  AV=0  .  '  AVERAGE 

30  FOR  SC  =  1  TO  150  1  150  SCORES  TO  BE  INPUT 
40  INPUT  11  INPUT  THE  TEST  SCORES  PLEASE  TS(SC) 

50  NEXT 
60' 

65'  OUTPUT  AVERAGE 
70  FOR  SC=1  TO  150 

80  TS(0)=TS(0)+TS(SC) 1  THE  NEXT  SCORE  IS  ADDED  TO  THE  PREVIOUS 
90  AV  =  TS(0)/SC  '  AND  THEN  DIVIDED  BY  THE  NUMBER  OF  SCORES 
100  PRINT  AV 
110  NEXT 


Now,  if  I  wanted  to  modify  the  name  of  Average  to 
AS,  the  task  would  be  greatly  simplified,  because  AV  is  a 
unique  variable  that  is  easily  read,  understood,  and 
found;  I  realize  that  this  is  a  simple  example,  . but  I'm 
sure  you  can  imagine  how  much  easier  life  would  be 
even  as  the  programs  become  more  complex. 


What's  required  is  to  tell  the  W.P.  to  "FIND  and 
REPLACE  AV  with  AS"  for  as  many  times  as  it  occurs  in 
the  program.  The  same  kind  of  thing  can  be  done  for 
any  string  within  the  program  as  long  as  it's  unique  and 
the  command  is  given  correctly.  By  this  I  mean  that  you 
have  to  be  sure  you  define  the  string  you  want  changed, 
correctly.  If  you  want  to  change  AV  and  there  is  another 
AV  within  another  string  ("WAVE")  and  you  specified  it 
to  Electric  Pencil  as  FIND  AV  instead  of  FIND  "  AV  ", 
you  will  have  some  problems.  Remember,  the  space  is  a 
delimiter  that  must  be  specified. 

The  next  thing  that  W.P's  are  good  for  is  block 
deletes.  You  can  specify  a  block  to  be  deleted  quite 
easily.  The  same  holds  true  for  block  moves.  What  isn't 
done  easily  is  renumbering  the  block  of  code.  See 
EXAMPLE  16. 


EXAMPLE  16 

HAVE 

WANT 

10  GOTO  10 

60  GOTO  60 

20  GOTO  20 

70  GOTO  70 

30  GOTO  30 

80  GOTO  80 

40  GOTO  40 

90  GOTO  90 

What  we  have  is  in  column  1  labeled  "HAVE"  (clever 
huh?),. and  you  can  guess  the  rest  How  do  we  go  about 
this?  Step  1  is  to  use  the  copy  command  in  Electric 
Pencil  to  the  new  location.  We  then  must  place  the 
cursor  in  front  of  each  string  and  tell  Electric  Pencil  to 
REPLACE  10  with  60  2  times  and  the  same  for  70  and 
80  etc.  I  admit  this  must  seem  to  be  the  second  hardest 
way  to  accomplish  this  task,  next  to  retyping  the  lines, 
but  if  you  don't  have  a  RENUM  program  it  will  make 
things  go  a  little  easier.  .  '  ■ 

A  suggestion  by  a  new  friend  of  mine  can  make  this 
kind  of  problem  easier.  He  suggested  that  if  you  number 
you  modules  with  the  first  character  alphabetic  followed 
by  the  usual  numeric  sequence.  See  EXAMPLE  17.  - 


EXAMPLE  17 

A100  'THIS  IS  THE  FIRST  LINE  OF  THE  FIRST  NODULE 

A1 10  'THIS  IS  THE  SECOND 

A120  'GUESS  YOU  CAN  FIGURE  OUT  WHICH  THIS  IS 

B100  'THIS  IS  THE  FIRST  LINE  OF  THE  SECOND  MODULE 
B110  'THIS  IS  THE  SECOND  OF  THE  SECOND 
B120  'THIS  IS  THE  THIRD 


When  you  want  to  relocate  this  section  of  code,  all 
you  have  to  do  is  find  and  replace  "A",  for  example  with 
"1"  or  "2"  or  whatever  digit  places  the  code  correctly. 
Thanks,  Jules  Greenstein,  where  ever  you  are. 

Merging  lines  is  very  easy.  All  you  have  to  do  is  to 
delete  the  line  numbers  of  the  lines  you'll  be  getting  rid 
of,  and  then  get  rid  of  the  carriage  return  of  the  line 
before  it.  See  EXAMPLE  18 

(see  top  of  next  column) 

The  problem  of  merging  programs  is  our  old  friend 
RENUM.  I  suggest  that  you  renumber  one  of  the  files 
you  want  merged  prior  to  merging.  Number  it  so  that 
there  are  no  conflicts  between  the  two  programs.  Once 
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EXAMPLE  18 
10  'this  is  line  10 
20  'this  is  line  20 

1-  delete  "20" 

2-  replace  the  <CR>  at  the  end  of  line  10  with  a  11  :  " 

This  will  leave  you  with: 

10'  this  is  line  10  :  this  is  line  20 


this  is  done,  save  them  as  ASCII  files,  and  then  simply 
load  them  into  the  W.P.  buffers  and  save  them  together 
as  one  file. 

Well,  that  about  covers  the  subject.  I  admit  it  isn't 
perfect,  and  unless  you  want  to  spend  some  more 
"dough"  on  another  utility,  I  suggest  you  consider  this 
alternative. 

Until  next  time,  keep  your  80  happy  and  well  fed. 

Spencer  Koenig 
153-27  73  Avenue 
Flushing  NY  11367  • 


PRACTICAL  BUSINESS  PROGRAMS 

continued  from  page  27 


160  GOTO  270 

170  IF  LC$="Y"  THEN  CMD"FORMS(T)" 

180  LPRINT  "BALANCE  SHEET" : SS#=0 : SX#=0 : OPEN" I" , 1 , FF$ : W$="N0 
ACCOUNT  DEBIT  CREDIT" :  LPRINT  W$ 

190  FOR  1=1  TO  SU:  INPUT  #1,A$:  IF  I<Z1  OR  I>Z3  THEN  LPRINT 
USING  E$;I,A$,X#(I,1) , X#(I ,2) 

200  SS#=SS#+X#( 1,1): SX#=SX#+X#( 1,2):  NEXT  I 
210  LPRINT  S$ 

220  LPRINT  USING  XG$;SS#,S X#:  LPRINT  XX$ 

230  CLOSE  1:  OPEN"0",1,NQ$:  FOR  1=1  TO  SU:  FOR  Q=1  TO  2: 
R0#=INT(X#(I , Q) * 100)/100 : DI#=X# (I , Q) - R0# : X#(I , Q)=RO# :  IF 
DI#>.005  THEN  X#(I,Q)=X#(I,Q)+.01 
240  PRINT  #1 , X#(I , Q) ; 

250  NEXT  Q 

260  NEXT  I:  CLOSE  1:L0AD  "GLHENU",R:REM  INPUT  TO  DISK 

270  Z1=N(1)+N (2) : Z2=Z1+N(3) : Z3=Z2+N (4) : Z1=Z1+1 

280  FOR  1=1  TO  SU:  IF  X#(I ,1)>X#(I ,2)  THEN  LET  X#(I,1)= 

X#(I,1)-X#(I,2):X#(I,2)=0 

290  IF  X#(I,1)<=X#(I,2)  THEN  LET  X#(I,2)=X#(I,2)-X#(I.l) : 

X#(I,1)=0 

300  NEXT  I 

310  SA#=0:CC#=0 

320  FOR  I=Z1  TO  Z2:SA#=SA//+X#(I,2)-X#(I.l):  NEXT  I 
330  FOR  I=Z2+1  TO  Z3 : CC#=CC#+X#( I , 1) - X#(I ,2) :  NEXT  I 
340  B$="  PROFIT  8  LOSS":  C$="  PRESENT 

YEAR  TO  DATE" 

350  D$="  AMOUNT  PERCENT  AMOUNT 

PERCENT" 

360  h $="###  %  %  m,m#M  hm  m.m-KH 

#.#§"■■  LPRINT  B$ 

370  LPRINT  CS:  LPRINT  D$ 

380  SS#=0 : SX#=0 :  OPEN"I", 1 ,NP$ 


390  FOR  I=Z1  TO  Z3:  INPUT  #1,A#,B#:  S#(I , 1)=A#+X#(I , 1) : 

S#(I ,2)=B#+X#(I ,2) : SS#=SS#+S#(I , 1  ) :SX#=SX#+S#(I,2):  NEXT 
I:  CLOSE  1 

400  0PEN"0",1,NZ$:  FOR  I=Z1  TO  Z3:  FOR  Q=1  TO  2: 
RO#=INT(S#(I,Q)*100)/100:DIf/=S#(I,Q)-RO#:S#(I1Q)=RO#:  IF 
DI#>.005  THEN  S#(I,Q)=S#(I,Q)+.01 
410  PRINT  #1 , S#(I,Q) ; 

420  NEXT  Q:  NEXT  I:  CLOSE  1 

430  FOR  I=Z1  TO  Z2:  IF  SA#>0  THEN  QP(I)=X#(I ,2)/SA# 

440  IF  SX#>0  THEN  QQ(I)=S#(I,2)/SX# 

450  NEXT  I 

460  FOR  I=Z2+1  TO  Z3:  IF  CC#>0  THEN  QP(I)=X#(I , 1)/CC# 

470  IF  SS#>0  THEN  QQ(I)=S#(I,1)/SS# 

480  NEXT  I 

490  OPEN" I " , 1 , FF$ :  FOR  1=1  TO  Zl-1:  INPUT  #1,A$:  NEXT  I 
500  FF#=0:SD#=0:  FOR  I=Z1  TO  Z2:  FF#=FF#+S#(I ,2) : 
SD#=SD#+X#(I,2) 

510  INPUT  #1 ,A$:  IF  X#(I,2)>0  THEN  LPRINT  USING  H$;I,A$, 
X#(I,2),QP(I),S#(I,2) ,QQ(I)  ELSE  S#(I,2)=S#(I,2)-X//(I,1): 
LPRINT  USING  H$;I,A$, -X#(I,1) ,QP(I) ,S#(I,2) ,QQ(I) 

520  NEXT  I:  LPRINT  USING  H$;0,"TOTAL  SALES", SD# , 1. ,FF#, 1 . : 
LPRINT"  " 

530  FOR  I=Z2+1  TO  Z3:  INPUT  #1,A$:  IF  X#(I,1)>0  THEN  LPRINT 
USING  H$ ; I , AJ,X#(1 , 1)  ,QP(I),S#(I,1),QQ(I)  ELSE  S«I,1)= 
S#(I,1)-X#(I,2) :  LPRINT  USING  H$;I,A$, -X#(I,2) ,QP(I) , 
S#(I,1),QQ(I) 

540  NEXT  I 

550  PR#=SA#-CC#:S$="  . 

. ":  LPRINT  S$ 

560  xg$="  M.m.m.tt# 

HU.  m  MM" 

570  PS#=SX#-SS#:  LPRINT  USING  XG$;PR#,PS# 

580  XX$="  ===== 

====" :  LPRINT  XX$ 

590  CLOSE  1:  FOR  I=Z1  TO  Z3:  X#(I,1)=0:  X#(I,2)=0:  NEXT  I: 

IF  PR#>0  THEN  LET  X#(SU,2)=X#(SU,2)+PR# 

600  IF  PR#<0  THEN  X#(SU,1)=X#(SU,1)-PR# 

610  IF  X//(SU,1)>X#(SU,2)  THEN  LET  X#(SU ,  1)=X#(SU .  1) - X#(SU,2) : 
X#(SU,2)=0 

620  IF  X#(SU,2)>=X#(SU,1)  THEN  LET  X#(SU , 2)=X#(SU . 2) - X# (SU . 1) : 

X#(SU,1)=0 

630  GOTO  170 


SUMMARY 

The  CPA  program  reviewed  is  the  second  program  in 
group  2.  This  program  produces  a  profit  and  loss  state¬ 
ment  and  a  balance  sheet.  With  this  new  program 
added  to  the  ones  already  available  you  can  set  up  your 
chart  of  accounts,  input  your  transactions,  and  produce 
a  periodic  set  of  accounting  reports. 

Steven  M.  Zimmerman,  Ph.D. 

College  of  Business  and  Management  Studies 
University  of  South  Alabama 
Mobile,  Alabama  36688 

Leo  M.  Conrad 
Imagineering  Concepts 
P.O.  Box  9843 

Mobile,  Alabama  36691-0843  ■ 
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PRODUCT  REVIEW:  CASSETTE  ENHANCEMENTS 
LEMONS  TECH  SERVICES 
KWIK  SOFTWARE 
Richard  Kaplan 


When  the  owner  of  an  overworked  cassette  system 
considers  purchasing  a  mass-storage  device  for  his 
computer,  the  possibilities  are  enormous.  Aside  from 
the  classic  diskette  drive,  there  are  companies  which 
promote  stringy  floppies,  hard  disk  drives,  tape  drives 
(such  as  those  used  with  mainframe  computers),  and 
even  an  8-track  cartridge  drive  to  store  programs. 
Unfortunately,  each  of  these  systems  has  one  significant 
drawback:  cost.  Lemons  Tech  Services  and  Kwik 
Software  each  offer  a  unique  alternatives;  a  "cassette 
loader"  for  $17.99  to  increase  cassette  reliability  and  a 
"cassette  operating  system"  for  $26  which  can  decrease 
loading  time  by  as  much  as  a  factor  of  6. 

Lemons  Tech  Services  manufactures  hardware  enhance¬ 
ments  for  cassette  owners;  Kwik  Software  develops 
software.  Although  each  company  actively  promotes  the 
other's  product  and  the  software  and  hardware  do 
complement  each  other,  either  product  may  be  used 
independently.  Thus,  let's  first  examine  the  hardware 
aspect  of  this  unique  cassette  enhancement. 

THE  LEMONS  TECH  LOADER 

Lemons  Tech  offers  a  variety  of  loaders,  varying  in 
price  from  $1 7.99  to  $29.99.  Models  are  available  which 
can  run  on  either  the  Model  I  or  Model  III  (although  a 
switch  may  need  to  be  aCpivated  for  Model  III 
operation  at  high  baud). 

Essentially  a  cassette  loader  is  a  "black  box"  which 
eliminates  the  guesswork  in  setting  the  Volume  level 
when  loading  programs  from  cassette.  The  Lemons  Tech 
loaders  are  designed  to  operate  with  the  cassette 
volume  level  set  at  the  highest  setting.  The  loader's 
curcuitry  monitors  the  volume  level  for  you. 

Setting  It  Up 

Installing  the  loader  is  quite  simple.  The  cassette 
cable  plug  which  normally  is  inserted  in  the  "ear"  jack 
should  be  inserted  into  the  loader;  a  wire  attached  to 
the  loader  itself  plugs  into  the  cassette  recorder's  ear 
jack.  Once  the  volume  level  is  adjusted  to  it  highest 
setting,  the  computer  operator  need  not  know  the 
loader  is  even  set  up.  No  batteries  or  external  power  is 
needed. 

(NOTE:  The  loader's  instructions  make  a  point  of  the 
fact  that  the  loader  is  designed  for  the  Radio  Shack 
CTR80  or  CTR80A.  Resistors  are  provided  for  modifying 
the  CTF41  or  CCR81,  a  modification  which  requires 
opening  these  recorders  and  soldering  in  new  resistors. 
The  loader  may  not  function  with  other  cassette 
recorders.) 

What  Does  It  Do? 

The  loader  by  itself  does  not  increase  program 
loading  speed.  Instead,  it  is  designed  as  a  stand-alone 
product  which  increases  cassette  reliability.  Difficulties 


with  volume  settings  and  poor  reproduction  quality  are 
greatly  diminished.  In  addition,  a  jack  for  a  speaker  or 
earphone  is  provided  to  listen  to  program  saves  or  loads 
without  pulling  plugs  from  the  cassette  recorder. 

OPTIONAL  FEATURES 

A  number  of  optional  features  are  avilable  for  a  quite 
nominal  cost.  For  $19.99  ($2  above  the  standard 
MODEL  LC),  the  MODEL  LCM  includes  a  built-in  audio 
monitor  for  listening  to  program  saves/loads  without  a 
speaker  or  earphone.  Other  models  include  a  volume 
control  and/or  an  audio  monitor.  Finaly,  the  "top-of-the- 
line"  MODEL  LLQ-2MC  has  an  output  jack  for  copying 
tapes  from  one  recorder  to  another. 

Another  Hardware  Addition 

Another  standalone  product  available  as  a  cassette 
enhancement  is  the  SOFTROL  SOFT  SWITCH  for 
$18.99.  This  device  has  two  primary  functions:  (1)  An 
override  switch  enables  freer  tape  positioning  without 
pulling  plugs  from  your  cassette  recorder;  (2)  A  delayed 
motor-off  feature  automatically  places  gaps  between 
your  programs,  allowing  for  easier  program  location  and 
a  lessened  chance  of  data  being  damaged  at  the  end  of 
a  program,  when  the  motor  is  turned  off. 

An  Analysis  of  Lemons  Tech 

Lemons  Tech  hardware  appears  to  be  very  reliable, 
and  it  has  a  price  which  can't  be  beat.  The  instructions 
provided  clearly  indicate  the  manufacturer's  competency 
in  the  area  of  cassette  storage,  noting  subtle  differences 
in  the  operation  of  the  various  Radio  Shack  cassette 
recorders.  (Did  you  know  the  CTR80  and  80A  allow  you 
to  rewind  or  fast-foward  a  tape  while  hooked  up  to  a 
computer,  while  the  CTR41  does  not?)  In  short.  Lemons 
Tech  loaders  are  highly  recommended  to  any  cassette 
owner  who  has  ever  experienced  loading  difficulties. 

THE  KWIK  SOFTWARE  "OPERATING 
SYSTEM" 

The  heart  of  the  KWIK  Software  offerings  appears  to 
be  the  cassette  operating  system.  Actually,  there  are  two 
different  operating  systems  —  KOS3  for  the  Model  III 
and  KWICOS  for  the  Model  I.  These  operating  systems 
can  improve  cassette  loading  time  as  much  as  6X,  and 
they  add  many  disk-like  commands  to  cassette  BASIC. 

Running  The  Program 

KWICOS  and  KOS3  are  machine-language  programs 
which  occupy  1700  bytes  of  memory.  Program  loading 
instructions  are  quite  explicit,  and  a  friendly  but  stern 
warning  message  warns  the  user,  the  the  program  is 

continued  on  page  61 
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BOOK  REVIEW 

Learning  TRS-80  BASIC 

for  the  Models  I,  11/16,  and  III  by  David  A.  Lien 

Spencer  Koenig 


Learning  TRS-80  BASIC  is  544  pages  long  and  is  by  far 
one  of  the  most  useful  and  well  written  books  for  the 
TRS-80  I've  had  the  pleasure  to  read.  I  suggest  that  if 
your  or  your  childs'  school  is  in  need  of  a  well 
conceived  and  presented  text  for  the  Junior  High  to 
High  school  level  (and  beyond),  then  urge  them  to  get 
this  one.  Now  that  you  know  my  opinion  on  Mr.  Lien's 
book,  let  me  tell  you  a  little  about  him  and  the  book 
and  why  I  feel  this  way. 

If  you  have  been  involved  with  the  TRS-80  for  a  little 
while,  then  the  name  David  Lien  should  not  be  new  to 
you.  He  wrote  the  "original  Level  I  manual."  The  Level  I 
manual  set  a  standard  for  technical  manuals.  This 
standard  said  that  they  should  be  clear,  be  fun,  and 
most  of  all  be  understandable. 

This  new  book.  Learning  TRS-80  BASIC  contains  lots 
of  fun  cartoons  that  illustrate  and  point  out  myths  and 
mistakes  to  watch  out  for  that  every  beginner  might 
make  or  misunderstand.  It  is  by  this  low  humor  that  it 
overcomes  any  computer  phobia  that  the  learner  could 
have.  This  is  especially  important  for  the  adults  working 
with  a  computer  for  the  first  time.  I  say  this  about 
adults,  because  the  fact  is  that  I  have  not  yet  met  a 
child  or  teenager  who  couldn't  wait  to  get  his  hands  on 
one  of  these  amazing  imagination  machines.  They  run 
towards  them  without  any  reservations  or  fears. 

Though  it  is  a  book  on  a  technical  subject,  it  is  still  a 
very  entertaining  and  educational  book,  for  the 
layman/beginner,  on  using  the  TRS-80  and  learning 
BASIC.  I  am  very  happy  to  see  that  Mr.  Lien  hasn't 
abandoned  the  approach  that,  after  all,  made  him 
famous.  The  fact  that  he  hand  holds  the  reader  step  by 
step  from  the  very  early  stages  of  computing  to  the  mid¬ 
intermediate  stages,  and  does  it  so  well,  illustrates  his 
talents  as  a  teacher  and  writer. 

The  book  is  broken  down  into  5  sections  (A  through 
E).  Section  A  is  in  8  parts,  followed  by  4  secondary 
sections  (B  through  E).  In  SECTION  D  we  have  8 
appendices  and  in  SECTION  E  we  have  the  INDEX  that  I 
wish  could  have  been  a  part  of  the  original 
documentation  that  came  with  the  Model  I,  way  back 
when.  It's  this  kind  of  consideration  that  permeates  this 
book  and  that  makes  it  a  cut  above  the  rest. 

Within  the  8  major  sections,  the  book  is  further 
broken  down  into  50  much  smaller  chapters.  I  like  the 
fact  that  the  chapters  are  so  small  because  this  allows 
the  reader  to  progress  at  his  or  her  own  pace  and  not 
feel  that  there  is  too  much  information  to  "overcome" 
in  order  to  get  to  the  end  of  a  chapter.  Mental  fatigue  is 
a  big  problem,  and  this  is  generally  the  problem  of 
many  textbooks  on  the  subject. 

Many  times  assumptions  are  made  about  what  the 
reader  knows,  and  this  leads  to  problems  and 
frustrations.  Learning  TRS-80  BASIC  gets  around  this  by 
having  all  the  information  there  in  these  small  chapters, 
and  it  includes  limited  problems  to  solve  as  you  go 
along,  reviewing  the  material  covered.  Not  only  could 


you  learn  a  great  deal  about  BASIC  from  this  text,  but 
you  could  also  learn  quite  a  bit  about  teaching  as  well. 
This  is  important  for  parents,  who  need  a  text  to  help 
them  help  their  younger  children  to  learn  computing.  It 
can't  be  said  about  many  texts  I’ve  come  across. 

Now  for  the  tour  de  force.  Perhaps  the  most 
important  fact  about  this  book  is  that  it  teaches  about 
all  of  the  Tandy  machines  available  at  the  time  of  this 
writing  (there  are  always  rumors).  The  text  also  contains 
most  of  the  documentation  you'll  need  to  do  anything 
on  these  machines.  The  indices  are  what  we've  been 
waiting  for  from  Tandy  for  a  long,  long  time.  Now  we 
finally  have  them  for  each  of  the  machines,  and  in  one 
place. 

In  section  A,  part  I,  we  have  chapters  1-4.  The 
smallest  chapter  is  6  pages  and  the  largest  is  10.  In  fact, 
the  largest  chapter  I  could  find  (at  a  glance)  was  about 
13  pages  in  length.  This  is  a  good  guide  to  follow  for 
young  readers  and  phobia  prone  adults.  Keep  them 
short  and  keep  them  happy  ("them"  refers  to  different 
"them"'s  for  those  who  are  paranoid). 

The  subject  is  taken  from  the  very  beginning,  starting 
with  turning  the  computer  ON.  This  section  is  called 
COMPUTER  ETIQUETTE.  It  is  here  that  you  first  come 
across  one  of  the  things  I  don't  like  about  the  book.  In 
trying  to  cover  so  much  material,  Mr.  Lien  has  come  up 
with  a  novel  approach,  which  I  think  is  a  good  idea  but 
difficult  to  do  successfully  because  it  is  a  compromise. 

He  explains  Level  II  from  the  point  of  view  of  the 
Model  III,  which  is  fine,  but  in  the  right  margins  he 
inserts  any  differences  to  the  Model  I  and  the  Model 
11/16,  as  well  as  additional  information  that  may  be 
relevant  but  better  introduced  as  an  aside.  There  are 
times  when  all  this  information  becomes  confusing  and 
distracting.  The  text  in  these  margins  is  also  much 
smaller  than  the  regular  text  by  necessity  and  therefore 
harder  to  read,  even  though  great  care  was  taken  in  the 
layout  to  keep  the  pages  as  uncluttered  as  possible. 

Although  I  recommend  this  book  as  a  general  text  for 
Junior  High  School  and  up,  I  wish  there  were  a  larger 
format  available  for  students  (and  for  me  too)  that 
would  be  easier  on  the  eyes  and  less  constrained  on  the 
page. 

Meanwhile,  back  in  the  chapter,  we  find  that  in  a  few 
short  pages  we've  had  a  number  of  simple  examples,  4 
new  commands,  1  statement,  and  some  miscellaneous 
information. 

Chapter  2,  entitled  "Expanded  Program,"  does  just 
that.  A  few  more  commands,  statements  and  general 
information  lead  us  to  chapter  3,  which  covers  the 
"EDITOR-First  Semester."  The  pace  for  introduction  of 
material  is  very  natural  and  seems  to  come  up  quite 
conversationally.  Buzzwords  are  not  overlooked  and  are 
explained  when  encountered.  I  can't  tell  you  how  often 
I've  found  texts  that  explain  a  subject  without 
explaining  some  of  the  language  necessary  to  understand 
what  the  author  is  explaining. 
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PART  II,  Chapters  5-8,  covers  what  is  perhaps  the 
root  of  computer  phobia,  "Math  Operators"  in  5, 
"Scientific  Notation"  in  6,  "Order  of  Operations"  in  7 
and  "Relational  Operators"  in  8.  When  I  started 
"teaching  computers"  in  my  school,  the  first  question 
kids  asked  me  was  "Do  I  have  to  know  MATH,"  and  the 
second  was  "Do  I  have  to  know  how  to  type."  All  I 
could  say  was  "NO,"  because  I  knew  they  would  learn 
what  they  had  to  know  when  they  had  to  know  it,  and  it 
would  make  the  whole  experience  more  meaningful. 
They  might  even  remember  something  about  it  later. 

Mr.  Lien  treats  the  subject  lightly  and  gives  short 
examples  and  a  problem  to  solve  that  is  related  to  his 
examples.  He  doesn't  really  go  into  much  depth  (and 
shouldn't),  but  he  does  cover  the  subject  clearly  and 
quickly.  This  allows  the  beginner  to  see  the  potential 
and  to  get  onto  something  more  interesting. 

Chapters  9-11  deal  with  input  and  output  via  the 
screen,  calculator  and  immediate  mode,  and  last  but 
not  least,  cassette  and  disk  commands  and  usage.  There 
is  no  real  depth  to  these,  but  enough  information  is 
given  to  allow  the  beginner  to  work  with  his  equipment 
and  at  least  get  the  job  done. 

From  chapter  12  on,  we  first  get  into  the  meat  of  real 
programming  through  "For-Next  Looping"  with  a  brief 
introduction  to  incrementing.  (He  uses  some  of  his 
earlier  math  examples  again  to  show  some  applications 
of  the  new  command  — nice  touch!)  Chapter  13 
expands  on  the  For-Next  with  four  new  commands  (List 
#§§,  Run  ###,  Delete  ###  and  Cont). 

Chapter  14  picks  up  on  the  Tab  (sorry)  function  for 
pretty  printing  to  the  screen,  and  chapter  15  again 
expands  on  the  For-Next.  In  15,  however,  we  come 
across  the  first  introduction  of  material  that  we  call 
"Programming  technique."  Here  is  the  first  mention  of 
considerations  for  making  programs  more  readable  (line 
indentation  in  loops).  I  don't  recall  seeing  this  concept 
in  Mr.  Lien's  earlier  versions  (I  could  be  wrong),  but  I 
think  it's  extremely  important  that  these  kinds  of 
considerations  be  demonstrated  to  the  beginner  early 
on. 

Chapter  1 6  covers  the  integer  function  fully.  Chapter 
17  talks  about  "More  Branching  Statements"  used  in 
conjunction  with  the  earlier  INT  function.  Here  we  get 
to  see  some  of  the  more  powerful  commands  the  BASIC 
language  has  to  offer.  I  didn't  think  that  -Mr.  Lien  was 
careful  enough  at  this  point.  Introduction  of  GOTO's 
these  days  is  a  touchy  subject,  and  more  could  have 
been  said  and  demonstrated  about  careful  use  of  these 
commands  without  going  into  too  much  detail.  The 
concept  of  subroutines  and  "CALLS"  is  also  discussed 
here  in  a  very  cursory  manner. 

Chapter  17  could  have  been  called  "FUN  with 
Random,"  but  instead  it's  just  plain  old  "Random 
Numbers."  Demonstrations  of  the  famous  game  coin 
flip  fill  out  this  chapter. 

The  final  chapter  in  section  2  covers  "READing 
DATA."  Introduced  are  the  ideas  of;  how  to  use  the 
READ  data  statement;  restoring  data  and  reading  string 
data.  Some  examples  show  the  famous  OD  error  and 
what  to  do  about  it. 

Section  3  begins  with  the  often  entangled  subject  of 
"STRINGS."  It's  at  this  point  that  the  learner  starts  to 
get  more  involved  with  the  examples  as  they  get  larger 
and  more  complex.  Chapter  20  is  entitled  "Intermediate 


BASIC"  and  re-covers  most  of  the  material  already 
demonstrated  with  some  new  twists.  Multi-statement 
lines,  string  variables,  some  short  hand  (?  instead  of 
Print)  and  the  use  of  some  special  key  to  get  around  the 
keyboard  are  explained.  - 

Chapter  21  covers  "The  Editor  -  Second  Semester" 
and  greatly  expands  on  Chapter  3.  At  this  point  the  user 
is  beginning  to  feel  like  a  real  hacker,  solving  problems 
and  getting  the  computer  under  control. 

Chapters  22  and  23  start  going  into  details  of  string 
handling,  a  subject  that  is  more  than  just  learning  to  use 
the  TRS-80.  ASCII  is  explained,  and  how  the  TRS-80 
handles  them  is  followed  by  "Strings  in  General." 

Chapters  24,  25  and  26  start  the  real  subject  matter 
as  we  learn  how  to  begin  manipulating  strings  by  taking 
them  apart  and  putting  them  together  from  the 
beginning  of  the  string,  middle  or  end. 

Well,  by  this  time  if  you're  not  hooked  on  computing 
you  never  will  be,  and  so  it's  time  to  start  getting  back 
into  the  dreaded  subject  of  "MATH."  Part  4,  chapter  27 
covers  "what  price  precision?"  The  overhead  of  double 
precision  is  reviewed  as  is  the  many  ways  of  doing 
similar  numeric  gymnastics.  Introduced  are  the  com¬ 
mands  I  NT(n),  FIX(n),  ABS(n),  LOG(n) ,  and  EXP(n).  The 
chapter  is  mostly  "try  it  and  see."  A  little  more  depth  is 
left  to  the  last  chapter  of  this  section  which  include 
some  of  the  TRIG  functions. 

Now,  we  finally  come  to  the  all  important  subject 
"Graphics  and  Display  Formatting."  We  finally  get  to 
draw  pictures  using  all  those  math  routines  we've  had  to 
endure.  Chapter  30  discusses  the  video  display.  Chapter 
31  covers  line  drawing  using  variables  and  introduces  a 
little  bit  of  animation.  Chapter  33  explores  the  power  of 
the  Print@  function  and  34  gets  back  to  those 
wonderful  TRIG  functions  I'm  sure  everybody  skipped 
the  first  time. 

Chapter  34  covers  "Point,"  35  covers  getting  a 
response  into  the  computer  via  "INKEY$,"  and 
applications  of  these  two  commands  are  combined  with 
"PRINT  USING"  for  those  of  you  with  business 
computing  in  mind  in  chapters  36  and  37. 

Surprisingly,  in  a  whole  section  (6)  of  its  own,  we 
come  to  a  topic  that  is  usually  covered  very  lightly  and 
left  to  the  reader  to  fend  for  himself.  The  subject  is 
"ARRAYS"  (chapter  38),  how  to  manipulate  them 
("SEARCH  and  SORT"  in  chapter  39),  and  then  how  to 
use  multi-dimensionai  arrays  (chapter  40). 

Chapters  41  and  42  get  back  to  the  fun  stuff  re¬ 
combining  the  older  material  for  some  advanced 
graphics  techniques.  Although  this  text  isn't  meant  to 
really  teach  graphics,  it  certainly  goes  far  to  whet  your 
appetite.  There  is  a  reference  to  an  excellent  book  for 
graphics  available  at  Radio  Shack,  cleverly  entitled  TRS- 
80  GRAPHICS  for  the  Model  I  and  Model  III. 

The  remaining  sections  (7  and  8)  of  the  book  cover 
miscellaneous  topics  of  using  POKEs  and  PEEKS, 
memory  organization,  logical  operators  and  USR 
functions.  Section  8,  for  me,  was  a  pleasant  surprise, 
because  it  talked  about  "Program  Control"  but  really 
discussed  programmer  control.  In  other  words,  it 
covered  techniques  usually  reserved  to  other  books, 
flow  charting,  debugging  techniques,  and  figuring  out 
what  those  error  messages  really  meant. 

Section  B  has  answers  to  all  those  problems  to  be 
solved,  followed  by  section  C,  which  contains  a  number 
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PIRATE  SOFTWARE,  HBO  DISHES,  OFF-THE-AIR  VTR,  AND 
OTHER  ALLEGED  "CRIMES"  OF  THE  COMPUTER  AGE 


Mike  Shadick 


To  hear  some  say  it,  it  would  seem  that  the  age  of 
personal  computery  and  video  is  only  ushering  in  a 
veritable  phlange  of  ways  to  either  break,  bypass,  or 
slide  by  the  electronically  foreshortened  arm  of  the  law. 
Yet  every  one  of  the  so-called  crimes  referred  to  in  this 
editorial’s  title  — not  to  mention  many  others,  as  well  — 
are  not  in  the  least  criminal  from  the  standpoint  of 
crimes  only  in  the  minds  of  the  profiteers. 

Who  are  the  profiteers?  Those  who  stand  to  gain 
greatly  from  the  very  computer/video  revolution  they 
seem  so  staunchly  to  oppose!  Instead  of  meeting  the 
new  breed  of  consumer  in  the  marketplace,  the 
profiteers  appear  to  prefer  seeing  him  or  her  in  court! 

In  effect,  the  profiteers  are  saying  (if  not  shoutingl), 
"Creative  use  of  home  computery  and  video  is  dipping 
into  our  profits,  and  we're  gonna  fight  it  with  everything 
we've  got!" 

Personally,  I  find  it  very  difficult  to  feel  any 
compassion  for  them  whatsoever. 

Take  the  issue  of  "illicit"  software  duplication 
(pirating).  There  is  one  sure  way  in  which  profiteering 
software  suppliers  can  not  only  get  "one  up"  on  the 
pirating  game,  but  can  even  beat  it!  And  what  is  that 
one  way?  By  making  frequent  improvements  in  their 
software  prorams,  thereby  assuring  that  whomever 
wants  the  best,  the  latest,  the  most  up-to-date  state-of- 
the-art  programs  available,  will  have  no  choice  but  to 
buy  them. 

An  effective  solution  to  the  pirating  problem,  is  it 
not?  Yet  it  would  seem  that  some  software  suppliers 
would  rather  bellyache  about  what  they  wish  was, 
instead  of  creating  their  own  ongoing  reality  in  the  form 
of  frequent  program  improvements. 

Well,  so  much  for  software  suppliers.  Heaven  knows 
we  need  them!  What  we  don't  need  is  their  "victim" 
laments.  And  neither  do  they. 

Now  let's  move  right  along  to  home  microwave 


of  program  examples  to  study  and  take  apart  with  your 


new  found  skills. 

The  remaining  APPENDIX'S  A-G  are  real  treasures, 
covering  the  differences  between  the  three  and  a  half 
machines  from  DISK  BASIC  to  ASCII  characters  as  well 
as  most  of  the  various  special  features  that  each 
machine  contains. 

All  in  all,  this  is  an  amazing  accomplishment.  To  have 


so  much  information  so  well  covered  certainly  puts  most 

of  the  texts  on  the  same  subject  to  shame.  The  fact  that 

all  of  the  Tandy  machines  are  covered  so  well  makes  it 

three  times  the  bargain.  You  can  be  sure  that,  had  it 

been  a  different  author  with  lower  standard,  you'd  have 

to  buy  three  or  four  books  at  the  same  price  as  this  one 

to  get  half  the  information.  Learning  TRS-80  BASIC  for 

the  Models  I,  11/1 6,  and  III  is  perhaps  the  computer 

book  buy  of  decade.  .....  , 

Price:  $19.95,  Available  from 

Spencer  Koenig  Compusoft  Publishing,  H  &  E 

153-27  73  Avenue  Computronics  (800-431-2818), 

Flushing,  NY  11367  ■  '  ^e$various  computer  and  book 


antennas  — the  ubiquitous  rooftop  or  balcony  dishes.  To 
hear  the  Home  Box  Office  organization  and  others  tell 
it,  you'd  think  that  the  dishes  were  driving  them  all  to 
the  poorhouse!  In  the  cable  profiteers'  attempts  to 
keep  their  signals  out  of  unpaying  hands,  they're  trying 
all  sorts  of  signal-scrambling  techniques,  only  to  be  one- 
upped  by  home  dish  owners  who  are  scrambling  (or 
should  I  say,  unscrambling),  even  faster. 

Yet  it  is  difficult  to  feel  any  compassion  for  the  cable 
companies'  "plight."  After  all,  I've  yet  to  find  it 
inscribed  in  the  Good  Book  (or  any  other),  "Thou  shalt 
send  thy  signal  via  microwave,  and  only  microwave  shalt 
thou  use."  Pardon  my  French,  but  Hell ,  there  are  any 
number  of  ways  that  HBO  and  the  other  such  services 
could  be  getting  their  signals  from  here  to  there.  The 
fact  that  they've  chosen  to  use  microwave  relays  is 
certainly  no  valid  reason  to  point  a  blaming  finger  at 
home  video  buffs  who  also  enjoy  receiving  the 
microwave  media. 

To  accuse  dish  owners  of  signal  pirating,  then,  is  a  lot 
like  faulting  Ma  Bell's  customers  for  putting  modems  on 
their  phones.  As  long  as  nothing  is  screwed  up,  the 
phone  lines  are  for  the  customer's  use,  in  any  way  that 
he  or  she  wishes. 

The  same  is  true  of  dishes,  or  it  should  be. 

One  final  microjab,  this  one  levelled  at  the  foes  of 
home  video  recording.  You  know  — the  TV  networks, 
prerecorded  cassette  suppliers,  and  others  who  are 
trying  (and  in  some  cases  apparently  succeeding)  to 
make  it  illegal  to  tape  copyrighted  material  off  the  air, 
which  is  just  about  everything  on  the  tube. 

Their  courtroom  antics  remind  one  of  the  teetotaling 
bar-smashers  just  before  the  enactment  of  Prohibition. 
Do  the  networks  and  others  actually  believe  that  they 
can  legislate  home  video  recording  out  of  existence?  For 
that's  the  only  way  in  which  their  archaic  wishes  could 
ever  come  true! 

Here,  again,  the  answer  seems  obvious.  The  best  way 
for  the  profiteers  to  "beat"  the  home  video  revolution  is 
to  plunge  whole  hog  into  the  business  of  selling  blank 
tapes!  That's  where  a  sizable  chunk  of  their  long-term 
profits  lie.  But  it  seems  that  they'd  rather  just  bellyache. 

So  as  I  see  it,  my  microfriends,  the  burden  of  proof  as 
to  what  does  or  does  not  constitute  home  computer/ 
video  "crimes"  rests  not  with  the  alleged  perpetrators, 
but  rather  with  the  profiteers.  If  they're  just  too  lazy  (or 
intransigent)  to  go  with  the  flow  and  thereby  benefit 
from  the  new  tools  of  a  new  age  — well,  then,  that's  just 
too  bad  for  them. 

At  any  rate,  they  have  no  right  to  take  their  problems 
out  on  us.  American  know-how  and  ingenuity  belongs  in 
the  plants  and  on  the  drawing  boards,  not  in  the  courts. 

Mike  Shadick 

Cedar  Square  West,  Apt.  E-414 
1515  South  Fourth  Street 
Minneapolis,  MN  55454  ■ 

(Editor's  note:  the  views  expressed  in  this  article  are 
not  necessarily  those  of  H  &  E  Computronics,  Inc.) 
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SPACE  X 

Steve  Brown 


This  unique  game  program  is  relatively  short  and  with 
very  simple  modifications  can  run  on  any  TRS-80.  These 
modifications  would  be  made  on  the  calls  to  the  built-in 
ROM  routines  (0060H  and  01 C9). 

Once  the  game  has  started,  erroneous  data  may  not 
be  entered  because  the  input  comes  from  the  keyboard 
and  only  valid  responses  are  checked. 

The  sound  effects  are  fairly  good  and  the  graphics  are 
excellent. 

From  the  user's  standpoint  this  program  is  very  easy 
to  use.  After  getting  the  program  loaded  the  user 
presses  the  left  arrow  key  to  move  left,  the  right  arrow 
key  to  move  right,  or  the  space  bar  to  fire.  There  are  no 
complicated  formulas  to  remember. 

The  game  is  tantalizing.  The  closer  you  get  to  winning 
the  more  difficult  the  game  becomes.  The  3  levels  of 
difficulty  and  the  shot  counter  at  the  end  of  the  game 
allow  everyone  to  play  at  a  level  they  feel  comfortable 
with. 

PROGRAM  ORGANIZATION 

Basically  the  program  consists  of  a  control  section, 
several  major  subroutines,  and  several  minor  subroutines 
(which  may  be  thought  of  as  simple  functions  — for 
example,  INC40H  increments  the  HL  register  pair  40H 
times). 

USERS  GUIDE 

255  bombs  will  be  spit  out  by  the  mother  ship.  They 
move  horizontally  until  they  are  directly  above  the 
correct  bomb  "chute"  then  they  move  vertically  into  the 
bomb  chute.  When  a  bomb  chute  is  full  (contains  5 
bombs)  a  bomb  is  dropped  vertically.  If  the  bomb  hits 
your  gun,  the  resulting  explosion  will  destroy  the  planet. 
You  may  either  shoot  the  bombs  or  move  horizontally  to 
avoid  being  hit  by  bombs. 

UFOs  will  randomly  appear  at  the  far  right  or  left  side 
of  the  screen.  They  slowly  drop  vertically.  If  they  reach 
the  planet  (the  bottom  of  the  screen)  they  explode  and 
destroy  the  planet. 

Your  gun  moves  horizontally  across  the  planet.  To 
move  left,  press  the  left  arrow  key.  The  gun  will 
continue  to  move  left  until  you  release  the  key.  The 
right  arrow  key  moves  the  gun  to  the  right. 

To  fire  your  gun,  press  the  space  bar.  The  gun  will 
continue  to  fire  until  you  release  the  space  bar.  A  count 
is  kept  of  the  number  of  shots  fired  and  is  displayed  at 
the  end  of  the  game.  Also  the  number  of  shots  fired  in 
the  best  game  so  far  today  is  displayed  at  the  end  of  the 
game. 

To  win  the  game  you  must  shoot  all  255  bombs  or 
avoid  being  hit  by  them,  and  shoot  all  UFOs  before  they 
hit  the  ground. 

To  start  the  game: 

1)  Type  "SYSTEM"  and  press  ENTER 

2)  Type  "SPACEX"  and  press  ENTER 

3)  Load  the  tape 

4)  When  the  program  has  loaded,  type  "/1 8688"  and 
press  ENTER 

5)  Press  "1"  for  an  easy  game,  "2"  for  a  medium 


game,  or  "3"  for  a  hard  game. 

In  playing  the  game,  "U"  represents  your  gun,  a 
bomb,  "%"  a  UFO,  and  the  mother  ship  and  bomb 
chute  are  shown  by  graphic  blocks. 

VARIABLES 

BEST:  4  bytes— Used  by  NEWWIN  —  Fewest  number 
of  shots  taken  to  win  a  game  (so  far  today). 

BOMBFL:  5  Bytes— Used  by  FIGMOV  and  FIRE  — 
Number  of  moves  downward  before  bomb  reaches  the 
bottom  of  the  screen.  Referenced  after  a  bomb  chute  is 
full  (contains  5  bombs).  There  are  5  bomb  chutes  and 
each  byte  corresponds  to  a  bomb  chute. 

CURBMB:  2  bytes  — Used  by  FIGMOV— Current 
bomb  address  (screen  location). 

CURCOL:  1  byte— Used  by  COLADD  and  FIGMOV 
—  Bomb  chute  that  the  current  bomb  is  moving  to. 

CURLFT:  5  bytes— Used  by  FIGMOV— Number  of 
downward  moves  before  bottom  of  chute  is  reached. 
There  are  5  chutes  and  each  byte  corresponds  to  a 
chute. 

CUNADR:  2  bytes— Used  by  UMOVE,  FIRE,  and 
FIGMOV— Gun  address  (screen  location). 

CUNPOS:  1  byte— Used  by  UMOVE  and  FIRE  — 
Relative  gun  position  left  to  right,  greater  than  0  and 
less  than  31. 

LTOGO:  1  byte— Used  by  FIGMOV— Number  of 
moves  to  the  left  before  the  bomb  will  be  directly 
above  the  appropriate  bomb  chute.  This  variable  is 
loaded  into  LTOGOL  on  the  first  move. 

LTOCOL:  1  byte— Used  by  FIGMOV— Value  is 
loaded  from  LTOGO.  Then  is  decremented  each  time 
the  bomb  moves  left  until  it  is  equal  to  zero  (at  this 
point  the  bomb  is  directly  above  the  appropriate  bomb 
chute). 

SHOTS:  4  bytes— Used  by  FIRE  and  NEWWIN  — 
Number  of  shots  fired  in  current  game.  ASCII 
representation  of  a  decimal  number. 

TMPCOL:  1  byte — Used  by  FIRE  —  Used  to  retain 
CURCOL  until  it  is  needed  by  the  FIRE  routine. 

TMPLFT:  5  bytes— Used  by  FIGMOV  — Value  is 
loaded  from  CURLFT.  Then  is  decremented  each  time 
the  bomb  moves  downward  until  it  is  equal  to  zero  (at 
this  point  the  bomb  is  at  the  appropriate  position  in  the 
chute). 

UFOCTR:  1  byte— Used  by  RNDUFO  — The  RNDUFO 
routine  is  executed  every  eighth  time  it  is  called.  This 
variable  keeps  count  of  how  many  times  its  been  called 
since  it  was  last  executed. 

UF1ADR:  2  bytes— Used  by  RNDUFO  and  FIRE  — 
UFO  #1  address  (screen  location)  where  UFO  #1  is 
located. 

UF1CTR:  1  byte — Used  by  RNDUFO  —  Number  of 
downward  moves  before  UFO  #1  reaches  the  bottom  of 
the  screen. 

UF2ADR:  2  bytes- Used  by  RNDUFO  and  FIRE  — 
UFO  #2  address  (screen  location)  where  UFO  #2  is 
located. 

UF2CTR:  1  byte— Used  by  RNDUFO— Number  of 
downward  moves  before  UFO  #2  reaches  the  bottom  of 
the  screen. 
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FILE  PG5655:  SPACEX  LISTING 


00100 

ORG 

4900H 

00101  DELAY 

EQU 

0060H 

00102  CLEAR 

EQU 

01C9H 

00110  BEGIN 

CALL 

INIT 

00120  MAIN 

CALL 

FIGMOV 

00130 

CALL 

FIGMOV 

00140 

CALL 

FIGMOV 

00150 

CALL 

FIGMOV 

00160 

CALL 

UMOVE 

00170 

CALL 

FIRE 

00180 

CALL 

RNDUFO 

00190 

JP 

MAIN 

00200  LI 

CALL 

CLEAR 

00210 

CALL 

NEWWIN 

00220 

LD 

HL.MSG3 

00230 

CALL 

WORL 

00240 

LD 

HL.WINMSG 

00250 

LD 

DE.3D10H 

00260 

LD 

BC.0018H 

00270 

LOIR 

00280 

LD 

HL, CHAMP 

00290 

LD 

DE.3D90H 

00300 

LD 

BC.0018H 

00310 

LDIR 

00320 

LD 

HL , RESTRT 

00330 

LD 

DE.3E90H 

00340 

LD 

BC.000BH 

00350 

LDIR 

00360  L2 

LD 

A, (3840H) 

00370 

BIT 

0|A 

00380 

JR 

Z,L2 

00390 

JP 

BEGIN 

00400  L3 

CALL 

CLEAR 

00430 

LD 

HL.MSG2 

00440 

CALL 

WORL 

00450 

JP 

BEGIN 

00460  INIT 

LD 

HL.3C28H 

00470 

LD 

(CURBMB) ,HL 

00480 

LD 

HL.LTOGO 

00490 

LD 

(HL) ,16 

00500 

INC 

HL 

00510 

LD 

(HL) ,16 

00520 

INC 

HL 

00530 

LD 

(HL)  ,0 

00540 

INC 

HL 

00550 

LD 

8,10 

00560  L4 

LD 

(HL) ,5 

00570 

INC 

HL 

00580 

DJNZ 

L4 

00590 

CALL 

CLEAR 

00600 

LD 

HL.GUNPOS 

00610 

LD 

(HL) ,16 

00620 

INC 

HL 

00630 

LD 

(HL) ,0 

00640 

INC 

HL 

00650 

LD 

(HL) ,0 

00660 

INC 

HL 

00670 

LD 

(HL) ,4 

00680 

LD 

HL , BOMBFL 

00690 

LD 

B ,  5 

00700  L5 

LD 

(HL) ,8 

00710 

INC 

HL 

00720 

DJNZ 

L5 

00730 

LD 

HL, SHOTS 

00740 

LD 

B ,  4 

00750  L6 

LD 

(HL) ,30H 

00760 

INC 

HL 

00770 

DJNZ 

L6 

00809 

CALL 

CLEAR 

00810  L7 

LD 

HL.EASY 

00812 

LD 

DE.3D10H 

00814 

LD 

BC.0008H 

00816 

LDIR 

00818 

LD 

HL , MED 

00820 

LD 

DE.3D50H 

00822 

LD 

BC.000AH 

00824 

LDIR 

00826 

LD 

HL .HARD 

00828 

LD 

DE.3D90H 

00830 

LD 

BC.0008H 

00832 

LDIR 

00850  L8 

LD 

A, (3810H) 

00860 

OR 

A 

00870 

JR 

Z,L8 

00880 

BIT 

1 ,  A 

00890 

JR 

Z,L9 

00900 

LD 

HL.FIGMOV+l 

00910 

LD 

(HL) ,0BH 

00920 

LD 

HL.L31+1 

00930 

LD 

(HL) , 7AH 

00940 

LD 

HL.L33+1 

00950 

LD 

(HL) ,6 

00960 

JP 

Lll 

00970  L9 

BIT 

2, A 

00980 

JR 

Z.L10 

00990 

LD 

HL.FIGMOV+l 

01000 

LD 

(HL) ,9 

01010 

LD 

HL.L31+1 

01020 

LD 

(HL) , 77H 

01030 

LD 

HL.L33+1 

01040 

LD 

(HL) ,8 

01050 

JP 

Lll 

01060  L10 

BIT 

3, A 

01070 

JP 

Z,L8 

01080 

LD 

HL.FIGMOV+l 

01090 

LD 

(HL) ,7 

01100 

LD 

HL.L31+1 

01110 

LD 

(HL) , 74H 

01120 

LD 

HL.L33+1 

01130 

LD 

(HL) ,0AH 

01140  Lll 

CALL 

CLEAR 

01150 

LD 

A, 8 

01160 

OUT 

(0FFH) , A 

01170 

LD 

HL.3C4CH 

01180 

LD 

B ,  4 

01190 

LD 

A.0BFH 

01200  L12 

PUSH 

HL 

01210 

POP 

IX 

01220 

LD 

(IX+0) ,A 

01230 

LD 

(IX+8) ,A 

01240 

LD 

(IX+16)  ,A 

01250 

LD 

(IX+24)  ,A 

01260 

CALL 

INC40H 

01270 

DJNZ 

L12 

01340 

LD 

HL.3C2AH 

01350 

LD 

(HL) ,0BBH 

01360 

INC 

HL 

01370 

INC 

HL 

01380 

LD 

(HL) ,0BFH 

01390 

INC 

HL 

01400 

INC 

HL 

01410 

LD 

(HL) ,0B7H 

01420 

LD 

HL.3C3AH 
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01430 

LD 

(HL) , 32H 

01440 

INC 

HL 

01450 

INC 

HL 

01460 

LD 

(HL) , 35H 

01470 

INC 

HL 

01480 

INC 

HL 

01490 

LD 

(HL) ,35H 

01500 

LD 

HL.3FE0H 

01510 

LD 

(GUNADR) ,HL 

01520 

LD 

(HL) , 55H 

01530 

RET 

01540  FIGMOV 

LD 

B ,  1 

01550 

CALL 

DELAY 

01560 

LD 

A ,  20H 

01570 

LD 

(3D88H) ,A 

01580 

LD 

(3D90H) ,A 

01590 

LD 

(3D98H) ,A 

01600 

LD 

(3DA0H) ,A 

01610 

LD 

(3DA8H) ,A 

01660 

LD 

HL.CURLFT 

01670 

CALL 

COLADD 

01680 

OR 

A 

01690 

JP 

Z.L19 

01700 

LD 

HL.LTOGOL 

01710 

LD 

A, (HL) 

01720 

OR 

A 

01730 

JR 

Z,L13 

01740 

LD 

HL, (CURBMB) 

01750 

LD 

A,28H 

01760 

CP 

L 

01770 

CALL 

Z.CNTER 

01780 

LD 

HL, (CURBMB) 

01790 

LD 

(HL) ,20H 

01800 

DEC 

HL 

01810 

DEC 

HL 

01820 

LD 

(HL) ,2AH 

01830 

LD 

(CURBMB), HL 

01840 

LD 

HL.LTOGOL 

01850 

DEC 

(HL) 

01860 

RET 

01870  L13 

LD 

HL, (CURBMB) 

01880 

LD 

A.28H 

01890 

CP 

L 

01900 

JR 

NZ.L14 

01910 

LD 

A ,  3CH 

01920 

CP 

H 

01930 

JR 

NZ.L14 

01940 

CALL 

CNTER 

01950  L14 

LD 

HL.TMPLFT 

01960 

CALL 

COLADD 

01970 

OR 

A 

01980 

JR 

Z.L15 

01990 

DEC 

(HL) 

02000 

LD 

HL, (CURBMB) 

02010 

LD 

(HL) ,20H 

02020 

CALL 

INC40H 

02030 

LD 

(HL) ,2AH 

02040 

LD 

(CURBMB), HL 

02050 

RET 

02060  L15 

LD 

HL.3C28H 

02070 

LD 

(CURBMB), HL 

02080 

LD 

HL.CURLFT 

02090 

LD 

DE.CURCOL 

02100 

LD 

A,(DE) 

02110 

ADD 

A,L 

02120 

LD 

L.A 

02130 

DEC 

(HL) 

02140 

LD 

A, (HL) 
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021519 

CALL 

INC05H 

02160 

LD 

(HL).A 

02170  L16 

LD 

HL.CURCOL 

02180 

INC 

(HL) 

02190 

LD 

A. (HL) 

02210 

CP 

5 

02220 

JR 

NZ.L17 

02230 

LD 

(HL) ,0 

02240  L17 

LD 

HL.LTOGO 

02250 

LD 

A, (HL) 

02260 

OR 

A 

02270 

JR 

NZ.L18 

02280 

LD 

(HL) , 14H 

02290  L18 

DEC 

(HL) 

02300 

DEC 

(HL) 

02310 

DEC 

(HL) 

02320 

DEC 

(HL) 

02330 

LD 

A. (HL) 

02340 

INC 

HL 

02350 

LD 

(HL) .A 

02360 

RET 

02370  L19 

LD 

HL , BOMBFL 

02380 

CALL 

COLADD 

02390 

LD 

B,A 

02400 

LD 

D,H 

02410 

LD 

E.L 

02420 

LD 

HL.3D88H 

02430 

LD 

A, (CURCOL) 

02440 

SLA 

A 

02450 

SLA 

A 

02460 

SLA 

A 

02470 

ADD 

A.L 

02480 

LD 

L.A 

02490 

LD 

A, 8 

02500 

SUB 

B 

02510 

LD 

B.A 

02520  L20 

CALL 

INC40H 

02530 

DJNZ 

L20 

02540 

LD 

(HL) ,20H 

02550 

CALL 

INC40H 

02560 

LD 

(HL) ,2AH 

02570 

EX 

DE.HL 

02580 

DEC 

(HL) 

02590 

EX 

DE.HL 

02600 

RET 

NZ 

02610 

LD 

(HL) ,20H 

02620 

CALL 

INC40H 

02630 

LD 

(HL) ,20H 

02640 

PUSH 

HL 

02650 

LD 

HL.0280H 

02660 

CALL 

SOUND 

02670 

POP 

HL 

02680 

DEC 

HL 

02690 

DEC 

HL 

02700 

LD 

DE. (GUNADR) 

02710 

LD 

A,E 

02720 

CP 

L 

02730 

JP 

Z,L45 

02740 

INC 

L 

02750 

INC 

L 

02760 

CP 

L 

02770 

JP 

Z.L45 

02780 

INC 

L 

02790 

INC 

L 

02800 

CP 

L 

02810 

JP 

Z.L45 

02820 

LD 

HL , BOMBFL 

02830 

CALL 

COLADD 
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02840 

LD 

(HL) ,8 

02850 

JP 

L16 

02860  UMOVE 

LD 

A. (3840H) 

02870 

BIT 

5, A 

02880 

JR 

Z.L21 

02890 

LD 

A, (GUNPOS) 

02900 

OR 

A 

02910 

RET 

Z 

02920 

LD 

HL, GUNPOS 

02930 

DEC 

(HL) 

02940 

LD 

HL, (GUNADR) 

02950 

LD 

(HL) ,20H 

02960 

DEC 

HL 

02970 

DEC 

HL 

02980 

LD 

(HL) , 55H 

02990 

LD 

(GUNADR), HL 

03000 

RET 

03010  L21 

BIT 

6, A 

03020 

RET 

Z 

03030 

LD 

HL, GUNPOS 

03040 

LD 

A , (HL) 

03060 

CP 

31 

03070 

RET 

Z 

03080 

INC 

(HL) 

03090 

LD 

HL, (GUNADR) 

03100 

LD 

(HL) , 20H 

03110 

INC 

HL 

03120 

INC 

HL 

03130 

LD 

(HL) , 55H 

03140 

LD 

(GUNADR), HL 

03150 

RET 

03160  FIRE 

LD 

A, (3840H) 

03170 

BIT 

7, A 

03180 

RET 

Z 

03190 

CALL 

SHTCNT 

03200 

LD 

HL, (GUNADR) 

03210 

CALL 

DEC40H 

03220 

LD 

B.09H 

03230  L22 

PUSH 

BC 

03240 

LD 

(HL) , 22H 

03250 

LD 

B,2 

03260 

CALL 

DELAY 

03270 

LD 

(HL) ,  20H 

03280 

CALL 

DEC40H 

03290 

POP 

BC 

03300 

DJNZ 

L22 

03310 

LD 

A, (GUNPOS) 

03320 

LD 

HL , TMPCOL 

03330 

LD 

(HL) , 1 

03340 

LD 

HL.3D40H 

03350 

LD 

DE.0008H 

03360 

LD 

B,  5 

03370 

LD 

C,0 

03380  L23 

INC 

C 

03390 

INC 

c 

03400 

INC 

c 

03410 

INC 

c 

03420 

ADD 

HL.DE 

03430 

CP 

C 

03440 

JP 

Z.L25 

03450 

PUSH 

HL 

03460 

LD 

HL, TMPCOL 

03470 

INC 

(HL) 

03480 

POP 

HL 

03490 

DJNZ 

L23 

03510 

CP 

2 

03520 

JP 

Z,L24 

03540 

CP 

26 
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03550 

RET 

NZ 

03560 

LD 

A, (UF1CTR) 

03570 

OR 

A 

03580 

RET 

Z 

03590 

LD 

HL.UF1CTR 

03600 

LD 

(HL) ,0 

03610 

LD 

HL, (UF1ADR) 

03620 

LD 

(HL) ,20H 

03630 

LD 

HL.0880H 

03640 

CALL 

SOUND 

03650 

RET 

03660  L24 

LD 

A, (UF2CTR) 

03670 

OR 

A 

03680 

RET 

Z 

03690 

LD 

HL , UF2CTR 

03700 

LD 

(HL) ,0 

03710 

LD 

HL, (UF2ADR) 

03720 

LD 

(HD.20H 

03730 

LD 

HL.0880H 

03740 

CALL 

SOUND 

03750 

RET 

03760  L25 

LD 

A, (HL) 

03780 

CP 

20H 

03790 

RET 

Z 

03800 

PUSH 

HL 

03810 

LD 

HL.0104H 

03820 

CALL 

SOUND 

03830 

POP 

HL 

03840 

LD 

B,4 

03850  L26 

PUSH 

BC 

03860 

LD 

D.H 

03870 

LD 

E.L 

03880 

CALL 

DEC40H 

03890 

LD 

A. (HL) 

03900 

LD 

(DE) ,A 

03910 

POP 

BC 

03920 

DJNZ 

L26 

03930 

LD 

(HL) ,20H 

03940 

LD 

A,  (TMPCOL) 

03950 

LD 

B.A 

03960 

LD 

HL , CURLFT - 1 

03970 

LD 

DE , BOMBFL- 1 

03980  L27 

INC 

HL 

03990 

INC 

DE 

04000 

DJNZ 

L27 

04010 

INC 

(HL) 

04020 

CALL 

INC05H 

04030 

INC 

(HL) 

04040 

LD 

A,  (DE) 

04050 

AND 

8 

04060 

RET 

NZ 

04070 

LD 

A, 8 

04080 

LD 

(DE),A 

04090 

JP 

L16 

04100 

RET 

04110  CNTER 

LD 

HL.3C3EH 

04120 

LD 

A, (HL) 

04140 

CP 

48 

04150 

JR 

Z.L28 

04160 

DEC 

(HL) 

04170 

RET 

04180  L28 

LD 

(HL) , 39H 

04190 

DEC 

HL 

04200 

DEC 

HL 

04210 

LD 

A. (HL) 

04220 

CP 

48 

04230 

JR 

Z,L29 

04240 

DEC 

(HL) 

04250 

RET 

04950 

JP 

04260  L29 

LD 

(HL) , 39H 

04960 

RET 

04270 

DEC 

HL 

04970  SOUND 

LD 

04280 

DEC 

HL 

04980 

LD 

04290 

LD 

A, (HL) 

04990 

SET 

04300 

CP 

48 

05000 

LD 

04310 

JP 

Z.Ll 

05010  L36 

LD 

04320 

DEC 

(HL) 

05020  L37 

OUT 

04330 

LD 

HL.FIGMOV+l 

05030 

DEC 

04340 

DEC 

(HL) 

05040 

BIT 

04350 

DEC 

(HL) 

05050 

RET 

04360 

LD 

HL.L31+1 

05060 

DJNZ 

04370 

DEC 

(HL) 

05070 

CPL 

04380 

DEC 

(HL) 

05080 

OR 

04390 

LD 

HL.L33+1 

05090 

AND 

04400 

DEC 

(HL) 

05100 

JR 

04410 

DEC 

(HL) 

05130  INC40H 

PUSH 

04420 

RET 

05140 

LD 

04430  RNDUFO 

LD 

HL.UFOCNT 

05150 

SCF 

04440 

LD 

A, (HL) 

05160 

CCF 

04450 

OR 

A 

05170 

ADC 

04460 

JR 

Z.L30 

05180 

POP 

04470 

DEC 

(HL) 

05190 

RET 

04480 

RET 

05200  DEC40H 

LD 

04490  130 

LD 

(HL) ,8 

05210  L38 

DEC 

04500 

LD 

HL.UF2CTR 

05220 

DJNZ 

04510 

LD 

A, (HL) 

05230 

RET 

04520 

OR 

A 

05240  COLADD 

LD 

04530 

JP 

NZ.L34 

05250 

LD 

04540 

LD 

A ,  R 

05260 

ADD 

04550  L31 

CP 

74H 

05270 

LD 

04570 

JP 

M.L32 

05280 

LD 

04580 

LD 

(HL) .14 

05290 

RET 

04590 

LD 

HL.3C04H 

05300  INC05H 

INC 

04600 

LD 

(UF2ADR) ,HL 

05310 

INC 

04610  L32 

LD 

HL . UF1CTR 

05320 

INC 

04620 

LD 

A, (HL) 

05330 

INC 

04630 

OR 

A 

05340 

INC 

04640 

JP 

NZ.L35 

05350 

RET 

04650 

LD 

A,  R 

05450  WORL 

LD 

04660  L33 

CP 

10 

05460 

LD 

04680 

RET 

P 

05470 

LOIR 

04690 

LD 

(HL) ,14 

05480 

LD 

04700 

LD 

HL.3C34H 

05490  L39 

PUSH 

04710 

LD 

(UFIADR).HL 

05500 

CALL 

04720 

RET 

05510 

POP 

04730  L34 

LD 

HL . (UF2ADR) 

05520 

DJNZ 

04740 

LD 

(HL) ,20H 

05530 

RET 

04750 

CALL 

INC40H 

05540  SHTCNT 

LD 

04760 

LD 

(HL) ,25H 

05550  L40 

LD 

04770 

LD 

(UF2ADR) , HL 

05570 

CP 

04780 

LD 

HL.UF2CTR 

05580 

JR 

04790 

DEC 

(HL) 

05590 

INC 

04800 

LD 

A , (HL) 

05600 

RET 

04810 

LD 

DE , (UF2ADR) 

05610  L41 

LD 

04820 

OR 

A 

05620 

DEC 

04830 

JP 

Z.L45 

05630 

JR 

04840 

JR 

L32 

05640  NEWWIN 

LD 

04850  L35 

LD 

HL , (UF1ADR) 

05650 

LD 

04860 

LD 

(HL) ,20H 

05660 

LD 

04870 

CALL 

INC40H 

05670  L42 

LD 

04880 

LD 

(HL) ,25H 

05680 

LD 

04890 

LD 

(UF1ADR) , HL 

05690 

LD 

04900 

LD 

HL.UF1CTR 

05700 

CP 

04910 

DEC 

(HL) 

05710 

JR 

04920 

LD 

A. (HL) 

05720 

JP 

04930 

LD 

DE. (UF1ADR) 

05730 

RET 

04940 

OR 

A 

05740  L43 

INC 

Z.L45 

05750 

INC 

DE 

05760 

DJNZ 

L42 

E,0 

05770  L44 

LD 

HL, SHOTS 

D.H 

05780 

LD 

DE.BEST 

7.D 

05790 

LD 

BC.0004H 

A, 9 

05800 

LDIR 

B.L 

05810 

RET 

(0FFH) , A 

05820  L45 

LD 

B ,  64 

DE 

05830 

LD 

A,  128 

7 ,  D 

05840 

PUSH 

DE 

Z 

05850 

POP 

IX 

L37 

05860 

DEC 

IX 

05870 

DEC 

IX 

8 

05880  L46 

LD 

(IX+0) ,A 

11 

05890 

LD 

(IX+2) ,A 

L36 

05900 

LD 

(IX+4) ,A 

DE 

05910 

PUSH 

BC 

DE.0040H 

05920 

PUSH 

AF 

05930 

LD 

HL.0380H 

05940 

CALL 

SOUND 

HL .  DE 

05950 

POP 

AF 

DE 

05960 

POP 

BC 

05970 

INC 

A 

B.40H 

05980 

DJNZ 

L46 

HL 

06040 

JP 

L3 

L38 

06060  CURBHB 

DEFS 

2 

06070  LTOGO 

DEFS 

1 

DE.CURCOL 

06080  LTOGOL 

DEFS 

1 

A. (DE) 

06090  CURCOL 

DEFS 

1 

A.L 

06100  CURLFT 

DEFS 

5 

L .  A 

06110  TMPLFT 

DEFS 

5 

A,  (HL) 

06120  GUNADR 

DEFS 

2 

06130  GUNPOS 

DEFS 

1 

HL 

06140  UF2CTR 

DEFS 

1 

HL 

06150  UF1CTR 

DEFS 

1 

HL 

06160  UFOCNT 

DEFS 

1 

HL 

06170  UF2ADR 

DEFS 

2 

HL 

06180  UF1ADR 

DEFS 

2 

06190  BOHBFL 

DEFS 

5 

BC.000CH 

06200  TMPCOL 

DEFS 

1 

DE.3D10H 

06210  WINMSG 

DEFM 

'#  OF  SHOTS  U  TOOK  :  ' 

06220  SHOTS 

DEFS 

4 

B.20H 

06230  CHAMP 

DEFM 

'BEST  SO  FAR  TODAY  :  ' 

BC 

06240  BEST 

DEFM 

'9999' 

DELAY 

06250  RESTRT 

DEFM 

’PRESS  ENTER' 

BC 

06260  EASY 

DEFM 

'1  -  EASY' 

L39 

06262  MED 

DEFM 

'2  -  MEDIUM' 

06264  HARD 

DEFM 

'3  -  HARD' 

HL.SHOTS+3 

06270  MSG2 

DEFM 

'U  LOSE  HUMAN' 

A.(HL) 

06280  MSG3 

DEFM 

'U  WIN  HUMAN' 

39H 

Z.L41 

(HL) 

06290 

END 

BEGIN 

(HL) , 30H 

SELF-MODIFYING  CODE 

HL 

FIGMOV+1: 

Speed  variable  — 

L40 

B.4- 

This  byte  controls  the  speed  of  the 
game. 

HL, SHOTS 

L31+1 

:  Controls  when  UFO  #1 

DE , BEST 

will  appear  on 

the  screen. 

A, (HL) 

L33+1 

:  Controls  when  UFO  #2 

C,A 

A, (DE) 

will  appear  on 

the  screen. 

C 

Steve  Brown 

Z,  L4o 

P.L44 

H 

HL 

3740  Park  South  Ct.,  Apt.  §7 

Topeka, 

Kansas 

66609  ■ 
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GOOD  PROGRAMS  DO  IT  ON  A  DISK 

Ken  Hippie 


So  you've  finally  done  it.  You  went  out  and  got  your¬ 
self  a  disk  drive  or  two.  Just  think,  no  more  forced 
coffee  breaks  while  waiting  for  Galaxy  Invasion  or  an 
Adventure  to  load.  Let's  see,  all  you  need  to  do  is  use 
the  TAPE  command  to  load  the  program  from  tape  onto 
a  disk  and  you're  ready  to  go.  For  the  last  time  you  wait 
for  the  program  to  load  from  tape.  There,  it's  done.  Now 
all  you  need  to  do  is  type  the  name,  press  ENTER,  and 
in  no  time  you  are  running  around  trying  to  shoot  a 
bunch  of  robots.  What  do  you  mean  you're  not  shooting 
any  robots?  What  do  you  mean  the  system  reboots 
every  time  you  try  to  discover  the  secret  of  the  Fun 
House?  You  mean  you  didn't  know  that  most  tape- 
based  machine  language  programs  won't  run  from  a 
disk?  Well,  most  won't,  but  there  is  an  easy  way  to 
correct  this  problem. 

THE  PROBLEM 

The  problem  is  that  most  of  these  programs  load  into 
memory  at  a  point  where  they  write  over  part  of  the 
disk  operating  system.  When  this  occurs  something  is 
going  to  happen  and  it  usually  isn't  going  to  be  what 
you  want.  You  can  relocate  the  program  so  that  it  loads 
above  the  DOS  but  it  probably  still  won't  run  since 
most  machine  language  programs  will  only  work  if  they 
are  loaded  into  the  right  locations.  What  you  could  do 
after  relocating  the  program  is  to  change  all  jumps,  calls, 
and  other  such  commands  to  reflect  the  program's  new 
position  in  memory  but,  trust  me,  you  don't  want  to  try 
this.  So  what  is  left  to  do?  I'll  give  you  a  hint  Once  the 
program  you  want  to  run  from  disk  is  loaded  into 
memory  you  don't  need  the  DOS  anymore.  Now  that 
you  know  what  to  do  to  get  Pyramid  2000  onto  disk,  let 
me  talk  about  how  to  get  cat  hair  out  of  your  keyboard. 
What?  You  still  don't  understand  about  the  disk?  Well, 
maybe  I'll  talk  about  cat  hair  next  time. 

THE  SOLUTION 

The  process  for  getting  a  tape-based  program  to  run 
from  disk  is  easy  (it  may  not  sound  like  it  but  it  is).  As  a 
guess,  I  would  say  that  99  to  100  percent  of  all  machine 
language  programs  that  you  can  get  loaded  onto  disk 
can  be  made  to  run  from  disk  using  the  following 
method.  The  first  thing  to  do  is  to  find  the  loading 
address  and  entry  point.  Next,  the  program  is  relocated 
to  a  position  above  the  DOS.  Now  a  short  section  of 
code  is  added  to  the  program  and  the  new  program  is 
dumped  back  to  disk  with  the  new  entry  point  being 
the  section  of  code  you  added.  That's  all  there  is  to  it 
The  secret  to  the  whole  affair  is  that  short  section  of 
added  code.  What  this  code  does  is  move  the  whole 
program  from  its  new  position  back  to  its  old  position 
and  then  transfer  control  to  the  old  entry  point.  That 
gives  you  an  idea  of  what  you  need  to  do  and  why,  so 
let's  get  down  to  the  details.  While  I'll  be  talking  about 
TRSDOS  in  particular,  the  method  itself  should  work 
with  any  DOS.  The  items  that  might  be  different  would 
be  the  names  of  the  commands,  utilities  used,  and  the 
way  that  the  loading  address  and  entry  point  of  a  file  are 
stored. 
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STEP-BY-STEP 

The  very  first  thing  to  do  is  to  get  the  program  from 
tape  onto  disk.  To  do  this  use  the  TAPE  command.  Get 
the  program  tape  ready  to  play  and  enter  the  following 
command  (<ENTER>  means  press  the  white  ENTER 
key):  TAPE  (S=T,D=D)  <ENTER>.  You  will  be 
prompted  for  the  cassette  speed.  Press  "H"  for  a  high 
speed  cassette  or  "L"  for  a  low  speed  cassette.  Now 
press  PLAY  on  your  tape  deck  and  then  any  key  on  the 
keyboard.  TRSDOS  will  now  load  the  programs  from 
tape  and  then  write  it  to  disk.  Note  that  some  programs 
will  not  load  onto  disk  this  way  (Space  Warp  and 
Cosmic  Patrol  are  the  only  two  I  know  of  that  will  not 
load). 

Once  the  program  is  on  disk,  you  are  ready  to  find 
the  loading  address  and  entry  point.  If  you  have  a  utility 
that  will  do  this  for  you  then  use  it,  otherwise  you  can 
use  DEBUG  to  do  it.  To  use  DEBUG,  first  make  a  note 
of  the  name  the  program  was  saved  under  and  then  get 
into  DEBUG  by  typing  the  following  command: 

DEBUG  <ENTER>. 

Once  in  DEBUG,  press  the  "F"  key  and  you  will  then  be 
asked  for  a  filespec.  Type  in  the  name  of  the  program 
and  press  <ENTER>.  The  first  record  of  the  file  will  be 
displayed  on  the  screen.  Look  at  the  two  lines  at  the  top 
of  the  screen.  They  should  be  in  one  of  two  formats.  In 
the  first  format  (example  1),  (Editor's  note:  all  the 
examples  are  printed  at  the  end  of  the  article,  pages  54 
and  55.)  the  loading  address  will  be  the  second  two 
bytes  (ignore  the  information  to  the  left  of  the  colon). 
These  are  the  two  bytes  underlined  in  example  .1.  As 
with  all  addresses,  the  loading  address  is  in  the  least 
significant  byte  (LSB),  most  significant  byte  (MSB)  order. 
In  other  words,  if  the  second  two  bytes  are  0043  then 
the  actual  address  is  4300H.  In  the  second  format,  the 
loading  address  is  in  the  third  pair  of  bytes  on  the  second 
line.  These  are  the  two  bytes  underlined  in  example  2. 
Now  that  you  have  the  loading  address,  write  it  down 
somewhere  with  the  note  that  it  is  the  original  loading 
address.  Next  you  need  to  find  the  entry  point.  To  do 
this^hold  down  the  semicolon  key  ( ;).  DEBUG  will  start 
putting  records  from  the  file  onto  the  screen.  When  it 
stops,  you  have  reached  the  last  record.  This  record 
should  contain  the  entry  point.  To  find  it,  start  at  the 
top  of  the  screen  and  begin  looking  for  the  byte 
sequence  0202.  The  two  bytes  immediately  following 
the  two  02  bytes  are  the  entry  point.  These  are  the  two 
bytes  underlined  in  example  3.  Again,  they  are  in  LSB- 
MSB  order.  Write  this  address  down  with  the  note  that 
this  is  the  original  entry  point.  I  have  run  across  one 
case  where  the  0202  bytes  sequence  was  in  the  next  to 
last  record.  If  you  don't  find  it  in  the  last  record,  press 
the  hyphen  key  and  page  backward  one  record  at  a  time 
until  you  do  find  the  two  02  bytes.  After  you  have  found 
the  entry  point  look  at  the  bytes  just  before  the  0202 
bytes.  If  they  are  00,  then  count  how  many  zero  bytes 
(00  is  one  zero  byte)  there  are  between  the  0202  bytes 
and  the  first  non-zero  byte  preceding  the  0202  bytes. 
Make  a  note  of  this  number  as  the  number  of  zero 
bytes.  Now  exit  DEBUG  by  pressing  the  BREAK  key 
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twice. 

You  are  now  going  to  relocate  the  program.  The  only 
decision  to  make  here  is  where  to  relocate  it  to.  You  do 
not  want  to  get  in  the  way  of  any  of  the  DOS,  so  any 
address  above  6000  hex  should  work  as  long  as  there  is 
enough  memory  left  to  load  the  program  into.  I  have  a 
48K  machine  and  usually  use  A000  hex.  To  relocate  the 
program  type  in  the  following  command: 

RELO  PROG  RAM/CM  D  (ADD=0A000)  <ENTER>. 
Substitute  the  address  you  want  to  use  for  the  0A000 
address.  If  the  address  you  use  starts  with  a  letter,  be 
sure  to  precede  it  with  a  zero,  otherwise  the  zero  is  not 
needed.  In  place  of  PROGRAM/CMD,  use  the  name  of 
your  program.  Write  down  the  address  the  program  was 
relocated  to  with  the  note  that  this  is  the  new  loading 
address.  Now,  to  make  it  easier  to  find  the  end  of  the 
program  in  a  later  step,  enter  the  command: 

CLEAR  <ENTER>. 

When  this  is  done  load  the  program  using  the  LOAD 
command: 

(LOAD  PROGRAM/CMD  <ENTER». 

When  the  program  is  loaded  go  back  into  DEBUG.  A 
note  on  DEBUG  —  when  displaying  memory  the  two 
bytes  on  the  far  left  side  of  the  screen  are  the  starting 
address  for  the  line  of  memory  that  follows  them.  Press 
"D"  and  you  will  be  asked  for  the  address  to  be 
displayed.  Enter  the  new  loading  address  that  you  made 
a  note  of  above.  Now  press  "S"  to  get  a  full  page 
display.  Use  the  semicolon  key  to  page  through  memory 
until  you  find  the  end  of  the  program.  When  you  start 
seeing  nothing  but  zeros,  you  have  found  the  end.  Now 
use  the  hyphen  (-)  key  to  get  back  to  the  first  non-zero 
bytes  of  memory.  This  is  the  end  of  the  program,  unless 
you  earlier  counted  some  zero  bytes.  If  you  did,  then 
start  at  the  last  non-zero  byte  showing  and  count  off  the 
number  of  zero  bytes  you  have  marked  down  and  this  is 
the  end  of  the  program.  The  first  byte  after  the  end  of 
the  program  is  where  you  are  going  to  add  our  section 
of  code.  Write  down  this  address  as  the  new  entry 
point.  To  add  the  new  code,  press  "M".  You  will  be 
asked  for  the  address  to  be  modified.  Enter  the  address 
of  the  new  entry  point  and  then  press  the  spacebar 
(anything  other  than  a  space  after  the  address 
terminates  the  modify  mode).  A  cursor  will  appear  on 
the  byte  you  specified.  Type  in  the  following  with  the 
appropriate  addresses  entered: 

21  nnnnl  1  ooooOl ssssEDB0C3eeee  <ENTER>. 

The  new  loading  address  is  nnnn.  The  original  loading 
address  is  oooo.  The  size  of  the  program  is  ssss. 
Remember  to  enter  all  of  these  values  in  LSB-MSB 
order.  The  size  of  the  program  can  be  found  by 
subtracting  the  first  memory  location  of  the  program 
from  the  last  one  and  adding  1.  If  hexadecimal 
subtraction  isn't  for  you,  then  use  4000H  for  a  16K 
program  or  8000H  for  a  32 K  program.  Make  a  note  of 
the  last  memory  location  used  by  the  code  you  added 
and  call  it  the  end  location.  With  this  done,  exit  DEBUG 
by  pressing  "Q".  You  are  now  ready  to  dump  the 
program  back  to  disk.  Enter  the  following  command: 

DUMP  PROGRAM/CMD 
(START=nnnn,END=eeee,TRA=tttt)  <ENTER>. 

For  the  program  name  you  might  want  to  use  a  new 
name  so  that  if  you  made  a  mistake  you  won't  have  to 
read  the  original  program  from  tape  again.  The  new 
loading  address  is  nnnn.  The  end  location  is  eeee  (noted 


above).  The  new  entry  point,  here  called  the  transfer 
address,  is  tttt.  Here  you  enter  the  addresses  in  their 
correct  order.  If  an  address  starts  with  a  letter  be  sure  to 
put  a  0  before  it.  That  was  it.  You  are  now  ready  to  run 
your  program  from  disk. 

AN  EXAMPLE 

To  show  you  an  actual  example  of  what  is  done,  I'll 
set  up  Adventure  8  to  run  from  disk.  After  the  TAPE 
command  is  used  to  load  the  program  onto  disk,  I  get 
into  DEBUG,  press  "F",  and  answer  the  filespec 
question  with  ADVENT/CMD.  DEBUG  will  load  the  first 
record  of  the  file  and  display  it  on  the  screen.  Example 
1  is  a  screen  dump  of  this.  Since  the  file  name  and  date 
are  not  on  the  first  line,  that  means  that  I  have  the 
format  where  the  second  two  bytes  contain  the  loading 
address.  These  bytes  are  0043  and  are  underlined  in  the 
example. 

I  write  this  down  as: 

original  loading  address  =  4300H. 

Next,  I  hold  down  the  semicolon  key  until  DEBUG 
stops  putting  new  records  onto  the  screen.  This  is  the 
last  record  of  the  file.  Starting  at  the  top  and  looking  for 
the  0202  byte  sequence,  I  find  it  at  the  location  marked 
3EF4.  The  entry  point  byte  sequence  follows  it  and  is 
5043.  I  note  this  as: 

original  entry  point  =  4350H. 

Example  3  is  a  screen  dump  of  this,  with  the  entry 
point  underlined.  This  is  one  of  those  programs  that 
have  zero  bytes  on  the  end  of  it  so  I  count  these  and 
find  that  there  are  35  of  them.  I  write  this  down  as: 
number  of  zero  bytes  =  35.  Pressing  BREAK  twice,  I  exit 
DEBUG  back  to  TRSDOS  READY.  I  relocate  the  program 
to  A000H  with  the  command  RELO  ADVENT/CMD 
(ADD=OAOOO).  I  note  A000  as  the  new  loading  address. 
When  this  is  done  I  enter  the  command  CLEAR 
followed  by  LOAD  ADVENT/CMD.  With  this  finished  I 
get  back  into  DEBUG.  First  I  press  "S"  and  then  "D"  and 
I  answer  the  prompt  with  A000.  Paging  through  memory 
I  find  that  the  last  non-zero  byte  is  at  memory  location 
DCDC.  I  count  down  the  number  of  zero  bytes  I  noted 
earlier  and  find  that  the  program  ends  at  memory 
location  DCFFH. 

Example  4  is  a  screen  dump  of  this  page  of  memory. 
To  find  the  size  of  the  program,  I  subtract  the  new 
loading  address  (A000H)  from  the  ending  address 
(DCFFH)  and  add  1.  This  gives  me  3D00H  and  I  write 
this  down  as  the  length  of  the  file.  The  first  byte  after 
the  end  of  the  program  is  DD00H  (which  is  on  the  next 
page  of  memory).  I  write  down  this  address  as  the  new 
entry  point.  This  is  where  1  want  to  add  my  code,  so  I 
press  "M"  and  answer  the  prompt  with  DD00  followed 
by  a,  space.  The  cursor  appears  and  I  type  in  the 
following  line: 

21 00A01 1 004301 003DEDB0C35043  <ENTER>. 

Example  5  is  a  screen  dump  of  how  the  screen  looks 
after  this  is  done.  When  entering  the  above  line, 
remember  that  the  addresses  and  the  file  length  are  in 
LSB-MSB  order.  Looking  to  find  the  new  ending  address 
I  see  that  it  is  DD0DH,  and  I  write  this  down.  To  find 
this  address  I  looked  at  the  start  of  the  line  and  saw  that 
DEBUG  had  it  labeled  DD00,  which  is  the  location  of 
the  first  byte  of  memory  on  that  line.  Next  I  counted 
over  to  the  last  non-zero  byte  which  is  byte  13  or  in 
hex,  byte  D.  This  is  by  calling  the  first  byte  number  0.  If 
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the  program  must  be  capable  of  being  loaded  onto  disk. 
Since  most  programs  will  load  onto  disk  even  if  they 
won't  run  from  it,  this  is  not  a  serious  problem.  Of 
course,  the  program  won't  have  any  of  the  additional 
capabilities  that  the  regular  disk  version  may  have. 
Other  than  these  two  items,  this  method  works  very 
well.  I  have  seen  programs  that  will  do  most  of  the  work 
involved  for  you,  but  considering  the  small  amount  of 
time  and  effort  needed  to  do  it  by  hand,  I  don't  feel 
that  they  are  worth  buying.  I  hope  you  find  this  method 
as  easy  to  use  and  useful  as  I  have.  Have  fun  doing  it  on 
a  disk. 

Ken  Hippie 

127  Plum  Tree  Road 

Brandon,  MS  39042  ■ 
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•  n^ouvumai  is  nut  iui  you,  meiijux  use  me  value  tor 
the  start  of  the  next  line,  in  this  case  DD10H.  Pressing 
"Q",  I  again  exit  DEBUG  and  then  issue  the  following 
command: 

DUMP  ADVENT/CMD 

(STA RT=0A000 ,  END=0DD0D,TRA=0DD00). 

For  the  starting  address  I  used  the  new  loading 
address.  The  end  address  is  the  new  ending  location 
and  the  transfer  address  is  the  new  entry  point.  When 
the  dump  is  done,  Adventure  8  will  work  from  disk. 

SUMMARY 

This  method  for  getting  a  tape-based  program  to  run 
from  disk  is  quick  and  easy  to  do.  Not  counting  the  time 
spent  loading  the  program  from  tape,  it  takes  me  about 
5  minutes.  Its  limitations  are  slight.  The  main  one  is  that 
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RUBIK'S  CUBE  and  INTERVAL 

William  H.  Patrick 


RUBIK'S  CUBE 

Want  to  get  your  cube  back  into  the  proper  form? 
This  program  will  show  and  tell  you  how.  You  may  start 
with  a  standard  cube  or  enter  the  colors  from  your  own. 
You  can  try  to  work  the  cube  or  back  up  steps,  having 
the  reverse  moves  printed  on  the  screen  to  get  you  back 
to  where  you  started.  Or  you  can  have  the  computer  tell 
you,  in  simple  English,  how  to  work  it.  No,  it  won't  beat 
the  kid  down  the  block,  but  it  does  work.  So  take  your 
cube,  go  into  your  TRS-80  room,  lock  the  door,  and 
END  THE  FRUSTRATION  Who's  to  know  that  you 
haven't  finally  figured  out  the  blasted  thing? 

This  program  is  based  on  The  Simple  Solution  to 
Rubik's  Cube  by  James  G.  Nourse,  Stanford  University, 
and  the  program  draws  upon  the  article  "Rubik's  Cube" 
by  Cordon  Speer  in  the  October  1981  issue  of  Compu- 
tronics. 

0  CLS:  PRINT  CHR$(23) :  PRINT©  206,  "RUBIK'S  CUBE"; 

1  PRINTS  328  "WILLIAM  H.  PATRICK"; 

2  PRINTS  390.  "RT7  PARADISE  CAMP  RD  ", 

3  PRINTS  454,  "HARRODSBURG,  KENTUCKY" 

4  PRINTS  516,"  40330"; 

5  PRINTS  644, "BASED  ON  SOLUTION  BY-" 

6  PRINTS  716,  "JAMES  G.  NOURSE  PRINT  6  776, "STANFORD 
UNIVERSITY", 

7  REM  JANUARY  1982 

8  REM  “RUBIK'S  CUBE"  AN  ARTICLE  BY  GORDON  SPEER 

(3304  WOODLAWN  DR.,  STERLING,  IL  61081) 
PUBLISHED  IN  OCTOBER  1981  *C0MPUTR0NICS* 

WAS  USED  IN  DEVELOPING  THIS  PROGRAM. 

9  FOR  11=1  TO  4000: NEXT 

10  CLS  RUBIK'S  CUBE 
20  CLEAR  2000 

30  DEFSTR  A,C,T 

31  DIM  C(3,3,3) 

32  MC=1 

33  DIM  MV$(200)  'MAX  MOVES 
40  GOSUB  1000  '  INTRODUCTION 
50  GOSUB  2000  1  SET  UP  CUBE 

54  CLS 

55  GOSUB  10000 

60  GOSUB  3000  ' INPUT  MOVES 
65  GOTO  55 
80  END 

1000  REM  **»**«»**«  INSTRUCTIONS  *«♦**•***•* 

1010  PRINT  "THE  FOLLOWING  KEYS  ARE  TO  BE  USED 

1015  PRINT:  PRINT  TAB(l) , "KEY", "FUNCTION  (NOTICE  NUMERIC  PAD)" 

1020  PRINT  TAB(l) ,"8" ."TOP  OF  CUBE" 

1030  PRINT  TAB(l) , "4" , " LEFT  OF  CUBE" 

1040  PRINT  TAB(l) , "5" , "FRONT  OF  CUBE" 

1050  PRINT  TAB(l) , "6" , "RIGHT  OF  CUBE" 

1060  PRINT  TAB(l), "2", "BOTTOM  OF  CUBE" 

1065  PRINT  TAB (1) , "T" , " TRANSVERSE  ROTATION":  PRINT 
TAB(l) , "L" , "LONGITUDINAL  ROTATION":  PRINT  TAB(1),"H", 

"HORIZONTAL  ROTATION"; 

1070  PRINT 

1080  PRINT  TAB(1),"0", "CLOCKWISE" 

1090  PRINT  TAB(1 ),"-",  "COUNTER-  CLOCKWISE" 

1100  PRINT  "ENTER  A  FACE  FOLLOWED  BY  A  DIRECTION  » 

1110  PRINT: INPUT  "<ENTER>  TO  CONTINUE" ; PG$ 

1120  CLS.  PRINT  "TWO  ADDITIONAL  FEATURES-" 


1130  PRINT:  PRINT  TAB(l) ,  "M#","HAVE  YOUR  LAST  #  MOVES 
REVERSED." 

1140  PRINT  T AB ( 1 ),"??“, " HAVE  THE  CUBE  WORKED  FOR  YOU." 

1142  PRINT 

1145  PRINT  TAB(l) , "##" . "HAVE  CUBE  RANDOMLY  MOVED" 

1150  PRINT@960, ;: INPUT" <ENTER>  TO  BEGIN" ;PG$:  RETURN 
1160  REM  ***  END  OF  INSTRUCTIONS  *** 

2000  REM  ***********  SET  UP  CUBE  •**»«*»»*** 

2010  INPUT"  SET  UP  STANDARD  CUBE  OR  INPUT  YOURS  (S/Y)";D$ 

2020  IF  D$="S"  THEN  2500 
2030  IF  D$="Y"  THEN  2100 

2040  PRINT"ENTER  'S'  FOR  STANDARD  CUBE,  ' Y'  TO  ENTER  YOURS." 
2050  GOTO  2010 

2100  CLS. REM  SET  UP  YOUR  CUBE 

2110  PRINT  "THINK  OF  YOUR  CUBE  AS  BEING  MADE  UP  OF  27  SMALL 
CUBES":  PRINT  :  PRINT  "THE  IDENTIFICATION  OF  EACH  CUBE  IS  3 
CHARACTERS-" 

2120  PRINT  TAB(l), "FIRST", "TOP  OR  BOTTOM  COLOR":  PRINT 
TAB(l) ,  "SECOND", "LEFT  OR  RIGHT  COLOR":  PRINT  TAB(l) , 

"THIRD", "FRONT  OR  BACK  COLOR" 

2125  INPUT  "<ENTER>  TO  CONTINUE" ; PG$ : CLS :  PRINT  "ENTER  CUBES 
PRINT  PRINT  TAB(l) , "TOP  LAYER  FIRST":  PRINT  TAB(l) , "FRONT 
ROW  FIRST":  PRINT  TAB(l) .''LEFT  CUBE  FIRST" 

2130  PRINT©  512+128, "IF  A  COLOR  IS  NOT  VISIBLE,  SIMPLY  PRESS 
<ENTER>"; 

2140  FOR  V=1  TO  3: FOR  D=1  TO  3:F0R  H=1  TO  3 
2143  PRINT©  320, "CUBE" ;(V-1)*9+(D-1)*3+H; 

2150  PRINTS  384, ; :INPUT"T0P  OR  BOTTOM  COLOR" ; A$: IF  A$=""  THEN 
A$=" - " 

2160  PRINTS  448,;: INPUT  "LEFT  OR  RIGHT  COLOR" ;B$: IF  B$="" 

THEN  B$="-" 

2170  PRINTS  512,  ;:INPUT  "FRONT  OR  BACK  C0L0R";C$: IF  C$="" 

THEN  C$="-" 

2180  C(V,H,D)=A$+B$+C$ 

2181  A$='"':B$="":C$='"' 

2185  PRINTS  384 , STRINGS ( 192 , 32) ; 

2190  IF  LEN(C(V,H,D»<>3  THEN  PRINT"ENTER  THAT  CUBE  AGAIN.";: 
GOTO  2150 
2200  NEXT  H.D.V 
2210  GOTO  2999 

2500  REM  SET  UP  STANDARD  CUBE 

2510  FOR  V=1  TO  3 : FOR  H=1  TO  3:F0R  D=1  TO  3:  READ  C(V,H,D): 
NEXT  D , H , V 

2520  DATA  RGW.RG  , RGY, R-W, R- - , R- Y, R0W.R0- , ROY, -6W.-G- , -GY, 

--W, - - - , - - Y, -  OW, -0- , -OY.BGW.BG- , BGY.B-W.B- - . B- Y , BOW , BO  - , BOY 

2999  RETURN 

3000  REM  ****  INPUT  MOVES  FROM  KEYBOARD  •*** 

3010  N$=INKEY$:IF  N$=" "  THEN  3010  ELSE  PRINTS  822, N$ ; "  "; 

3020  M$=INKEY$:IF  M$  =""  THEN  3020  ELSE  PRINTS  826, M$; 

3021  IF(  N$="8"  OR  N$="4"  OR  N$="5"  OR  N$="6"  OR  N$="2"  OR 
N$="T"  OR  N$="L"  OR  N$="H")  AND  (M$=  "0"  OR  M$=".")  THEN 
MV$ (MC) =N$+M$ : MC=MC+1 

3025  PRINTS  822,"  "; 

3030  GOSUB  3049 

3047  RETURN 

3048  REM  ****  END  OF  INPUT  **** 

3049  REM  *****  DETERMINE  MOVE  TO  MAKE  ***** 

3050  PRINTS  822, N$;M$; :  PRINTS  960,STRING$(30,32); :  PRINT  S 
804,  "M0VE";MC-1;:IF  N$="8"  AND  M$="0"  THEN  GOSUB  14010: 

GOTO  3999 

3051  IF  N$="2"  AND  M$="0"  THEN  GOSUB  14020:  GOTO  3999 

3052  IF  N$="4"  AND  M$="."  THEN  GOSUB  14030:  GOTO  3999 

3053  IF  N$="4"  AND  M$="0"  THEN  GOSUB  14040:  GOTO  3999 

3054  IF  N$=" 6"  AND  MJ="0"  THEN  GOSUB  14050-  GOTO  3999 
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3055  IF  NS="6"  AND  THEN  GOSUB  14060:  GOTO  3999 

3056  IF  NS="5"  AND  MS="0"  THEN  GOSUB  14070:  GOTO  3999 

3057  IF  N$="5"  AND  H$=M."  THEN  GOSUB  14080;  GOTO  3999 

3058  IF  N$="8"  AND  MS-"."  THEN  GOSUB  14090:  GOTO  3999 

3059  IF  N$="2"  AND  MS-"."  THEN  GOSUB  14100:  GOTO  3999 

3060  IF  N$="L"  AND  H$="."  THEN  GOSUB  14110:  GOTO  3999 

3061  IF  NS="L"  AND  H$=,l0"  THEN  GOSUB  14120:  GOTO  3999 

3062  IF  NS="H"  AND  MS="0"  THEN  GOSUB  14130:  GOTO  3999 

3063  IF  N$="H"  AND  THEN  GOSUB  14140:  GOTO  3999 

3064  IF  N$="T"  AND  H$="0"  THEN  GOSUB  14150:  GOTO  3999 

3065  IF  N$="T"  AND  0$=''."  THEN  GOSUB  14160:  GOTO  3999 

3066  IF  NS='W  THEN  GOSUB  4500:  GOTO  3999  ELSE  IF  NS="?" 

THEN  GOSUB  5000 

3067  IF  N$="M"  THEN  GOSUB  4000:  GOTO  3999 

3068  PRINT@  960, "INPUT  ERROR  ";N$;M$;:FOR  ZX=1  TO  500 
NEXT:  GOTO  3010 

3500  REH  REPLAY  LAST  MOVES 

3999  RETURN  1  ****  RETURN  FROM  DETERMINING  MOVE  **** 

4000  REM  *****  REMAKE  MOVES  FROM  MEMORY  ***** 

4010  Q=VAL(MJ) :XX=MC-1 

4015  PRINTS  960, "REVERSING  MOVES  "XX  "TO"  XX-Q; 

4017  FOR  ZZ=1  TO  500: NEXT 

4020  FOR  11=  XX  TO  XX-Q+1  STEP  -1 

4021  MC=MC-1 

4030  NS=LEFTS(MVS(II) ,1) 

4040  PJ=  RIGHTS (MV$( II), 1) 

4050  IF  PS="0"  THEN  MS-"."  ELSE  MS="0" 

4060  GOSUB  3049 

4061  GOSUB  10000 

4063  IF  INKEY$=“"  THEN  4063 

4065  NEXT  II 

4066  IF  MC<0  THEN  MC=0 
4070  RETURN 

4500  REM  ****  MIX  UP  CUBE  . 

4505  RANDOM 

4506  FOR  XX=1  TO  50 
4510  W=RND(5) 

4520  ON  W  GOTO  4530,4540,4550,4560,4570 

4530  N$="8":  GOTO  4580 

4540  NS="4":  GOTO  4580 

4550  N$="5":  GOTO  4580 

4560  N$="6":  GOTO  4580 

4570  NS="2" 

4580  W=RND(2) 

4590  IF  W=1  THEN  MS="0"  ELSE  M$="." 

4600  GOSUB  3049 
4610  NEXT  XX 

4615  PRINTS  960 , STRING$(30 , 32) ; 

4620  RETURN  '  ***  END  OF  RANDOM  MOVES  *** 

5000  REM  **♦♦**♦*•**  WORK  CUBE  ******••*••**•*♦ 

5001  PRINTS  960, "SINGLE  STEP  Y/N?" ; : Q5=INKEY$ : IF  Q$="" 

THEN  5001  ELSE  IF  Q$="Y"  THEN  ZFLAG=1 

5005  PRINTS  960,"  TOP  EDGES  "; :REM  ******  TOP 

FRONT  EDGE . . 

5010  P1S=LEFTS(C(1,2,2) ,1) :P2S=RIGHTS(C(2,2, 1) ,1) :P3S="-" 

5015  GOSUB  9900  '  FIND  CUBE 

5020  IF  X=1  AND  Y=2  AND  Z=1  THEN  GOTO  5100  'CUBE  IS  CORRECTLY 
POSITIONED 

5025  IF  X=3  AND  Z<>1  THEN  NS="2" :M$="0" :  GOSUB  3049:  GOSUB 
10000:  GOTO  5015 

5030  IF  Z=1  THEN  NS="5" :MS="0" :  GOSUB  3049:  GOSUB  10000: 

GOTO  5015 

5035  IF  X=2  AND  Y=1  THEN  NS="4" :MS=" GOSUB  3049:  GOSUB 
10000:  NS="2":MS="0":  GOSUB  3049:  GOSUB  10000:N$="4" : M$="0" : 
GOSUB  3049:  GOSUB  10000  GOTO  5015 
5040  IF  X=2  AND  Y=3  THEN  NS="6":MS="0":  GOSUB  3049: 

GOSUB  10000:  NS="2":MS=".":  GOSUB  3049:  GOSUB  10000:  NS="6": 
M$=" . " :  GOSUB  3049:  GOSUB  10000.  GOTO  5015 


5045  IF  X=1  AND  Y=1  THEN  NS="4":MS  "0":  GOSUB  3049:  GOSUB 

10000  N$="5":M$="0":  GOSUB  3049:  GOSUB  10000 : N$="4" : M$=" : 

GOSUB  3049:  GOSUB  10000,  GOTO  5015 

5050  IF  X=1  AND  Y=3  THEN  NS="6" :MS=" . " :  GOSUB  3049:  GOSUB 

10000,  NS="5":M$=\":  GOSUB  3049:.  GOSUB  10000 :N$="6":M$="0": 

GOSUB  3049:  GOSUB  10000  GOTO  5015 

5055  IF  X=1  AND  Z=3  THEN  N$="H" :M$="0" ;  GOSUB  3049:  GOSUB 

10000:N$="6":M$=".":  GOSUB  3049:  GOSUB  10000 :N$="H":M$=".": 

GOSUB  3049:  GOSUB  10000:  GOTO  5015 

5100  A$=LEFT$ (C ( 1,2,2) , 1 )+"-"+  RIGHT$(C (2 , 2 . 1) , 1) :  IF 

C(1,2,1)=A$  THEN  5150  '  CUBE  IS  CORRECTLY  ORIENTED 

5110  NS="5":MS=".":  GOSUB  3049:  GOSUB  10000 

5120  NS="8":MS="0":  GOSUB  3049:  GOSUB  10000 

5130  NS="4":MS=".":  GOSUB  3049:  GOSUB  10000 

5140  N$="8" :M$=" :  GOSUB  3049:  GOSUB  10000:  GOTO  5100 

5150  A$=LEFT$(C(1 ,2,2) ,1)+MID$(C(2,3,2) ,2,1)+"-"  : 

B$=LEFT$(C(1 ,2,2) , 1)+"-"+  RIGHTS (C (2 , 2 , 3) , 1)  : 

C$=LEFT$(C<1 ,2,2), 1)+MID$(C(2 ,1,2) ,2,1)+"-"  :  IF  C(1,3,2)=A$ 
AND  C ( 1 , 2 , 3) =B$  AND  C(1,1,2)=C$  THEN  GOTO  5200  1  CORRECT 
EDGES 

5160  PRINTS  960, "FINISHED  ONE";:  N$="H":M$="0":  GOSUB  3049: 
GOSUB  10000:  GOTO  5005 

5200  PRINT  @  960,"  TOP  CORNERS  REM  *****  TOP 

CORNERS  ***** 

5205  P1$=LEFT$(C (1,2,2) ,1) :  P2$=MID$(C(2, 1 ,2) ,2,1): 
P3$=RIGHT$(C(2 , 2  , 1) ,  1) 

5210  GOSUB  9900 

5215  IF  X=1  AND  Y=1  AND  Z=1  THEN  5300' REM  CORRECT  POSITION 

5220  IF  X=1  AND  Y=1  AND  Z=3  THEN  N$="4" :M$=" . " :  GOSUB  3049: 

GOSUB  10000 : N$="2" :MS="0" :  GOSUB  3049:  GOSUB  10000:  N$="4": 

MS="0":  GOSUB  3049:  GOSUB  10000:  GOTO  5205 

5225  IF  X=1  AND  Y=3  AND  Z=3  THEN  NS="6":MS="0":  GOSUB  3049: 

GOSUB  10000:N$="2":M$=".":  GOSUB  3049:  GOSUB  10000:  NS="6": 

M$=" . " :  GOSUB  3049:  GOSUB  10000:  GOTO  5205 

5230  IF  X=1  AND  Y=3  AND  Z=1  THEN  N$="6" :M$=" . " :  GOSUB  3049: 

GOSUB  10000 :N$="2":M$=".":  GOSUB  3049:  GOSUB  10000:  N$="6": 

:MS="0" :  GOSUB  3049:  GOSUB  10000:  GOTO  5205 

5240  IF  (X=3  AND  Y<>1)  OR  (X=3  AND  Z<>1)  THEN  N$="2": 

M$="0":  GOSUB  3049:  GOSUB  10000:  GOTO  5205 

5245  N$="4":M$="0":  GOSUB  3049:  GOSUB  10000: N$="2" : M$="0" : 

GOSUB  3049:  GOSUB  10000 ;N$="4":M$=".":  GOSUB  3049:  GOSUB 

10000:  GOTO  5205 

5300  IF  LEFT$(C(1 ,1,1), 1)=LEFT$(C(1 ,2,2) , 1)  AND 

MID$(C(1 , 1,1) ,2, 1)=MID$(C(2, 1 ,2) ,2,1)  AND 

RIGHTS(C(1 , 1,1), 1)=RIGHT$(C(2,2 , 1) , 1)  THEN  5350  1  CORRECT 

ORIENTATION 

5305  Z$="H. 6. 2020605020205. H0":  FOR  1=1  TO  19  STEP  2: 

N$=LEFT$(MID$(Z$,I,2) ,1) :  MS=RIGHTS(MIDS(ZS,I,2),1):  GOSUB 

3049:  GOSUB  10000: NEXT:  GOTO  5205 

5350  IF  LEFTS (C( 1,2, 2) , 1 )=LEFT$ (C(l ,3,1) ,1)  AND 

LEFTS (C( 1,2, 2) , 1)=LEFT$(C(1 ,3,3) , 1)  AND 

LEFTS (C(l , 2 , 2) , 1 )=LEFTS(C (1 , 1 , 3) , 1 )  AND 

MID$(C(2 ,3,2) , 2 , 1 )=MID$(C(1 ,3,1) ,2,1)  AND 

MID$ (C(2 ,3,2) , 2 , 1 )=MID$(C( 1 ,3,3) ,2,1)  AND 

MIDS (C(2 , 1 , 2) , 2 , 1)  =  MID$(C(1 ,1,3) ,2,1)  THEN  5360 

5355  NS="H":MS="0":  GOSUB  3049:  GOSUB  10000:  GOTO  5205 

5360  IF  RIGHT$(C(2 ,2,1), 1)=RIGHTS(C(1 ,3,1) ,1)  AND 

RIGHT$(C(1 ,3,3) , 1)=RIGHTS(C(2,2,3) ,1)  AND 

RIGHT$(C(1 , 1,3) , 1)=RIGHTS(C(2 ,2,3) ,1)  THEN  5400  ELSE  5355 

5400  PRINT  g  960,"  SECOND  LEVEL  REM  ***** 

SECOND  LEVEL  ***** 

5405  NS="L":MS=".":  GOSUB  3049:  GOSUB  10000:  N$="L": 

MS=" . " :  GOSUB  3049:  GOSUB  10000 

5410  P1S=RIGHT$(C(2,2,1) .1) :  P2S=MIDS(C(2,3,2) ,2,1) :P3S="-" 
5415  GOSUB  9900 

5420  IF  RIGHTS(C(2 ,3,1) , 1)=RIGHTS(C(2,2, 1) ,1)  AND 
MIDS(C(2,3, 1) ,2, 1)=MIDS(C(2,3,2) ,2,1)  THEN  5500  1  CUBE  IS 
CORRECT 
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5425  IF  X=2  AND  Y=3  AND  Z=1  THEN  GOSUB  549ft:  N$="8":  M$=".": 
G0SU8  3049:  GOSUB  10000:  GOSUB  5490:  GOTO  5410  *  ORIENT  A 
CORRECTLY  POSITIONED  CUBE 

5440  IF  X=1  AND  Y=1  AND  Z= 2  THEN  GOSUB  5490:  GOTO  5410 
'POSITION  FROH  TLE 

5450  IF  X=1  AND  Y<>1  THEN  N$="8”:M$="0":  GOSUB  3049:  GOSUB 
10000:  GOTO  5410  '  WAS  IN  TOP  BUT  NOT  TLE 
5452  IF  X=2  AND  Y=3  THEN  N$="H":M$="0":  GOSUB  3049:  GOSUB 
10000:  GOSUB  5490:  N$="H” :M$=" . " :  GOSUB  3049:  GOSUB  10000: 
GOTO  5410 

5455  IF  X=2  THEN  N$="H":M$="0":  GOSUB  3049:  GOSUB  10000: 

GOTO  5410 

5489  REH  *•*  SUB  TO  MOVE  TLE  TO  FRE 

5490  Z$=“60806. 8 . 5 . 8 . 50" : FOR  1=1  TO  13  STEP  2: 

N$=LEFT$ (MID$(Z$, I ,2) . 1) :  M$=RIGHT$(MID$ (Z$, I ,2) , 1) : 

GOSUB  3049:  GOSUB  10000:  NEXT:  RETURN 

5500  IF  MI0$(C(2,3,3),2,1)=MID$(C(2,3,2),2,1)  AND 
RIGHT$(C(2 ,3,3), 1)=RIGHT$(C(2 , 2 , 3) , 1)  AND 
MID$(C(2, 1 ,3) ,2,1)=MID$(C(2,1,2) ,2,1)  AND 
RIGHT$(C(2,1,3) ,1)=RIGHT$(C(2,2,3),1)  AND 

HID$(C(2, 1,1) ,2, 1)=MID$(C(2, 1,2) ,2, 1)  THEN  5501  ELSE  5505 

5501  IF  RIGHT$(C(2 ,1,1), 1)=RIGHT|(C(2 ,2 , 1) , 1)  THEN  5600 
1  2ND  LEVEL  IS  FINISHED 

5505  N$=,,H”:M$="0":  GOSUB  3049:  GOSUB  10000:  GOTO  5410 

5600  REH  **********  THIRD  LEVEL  ********** 

5601  PRINTS  960, “BOTTOM  CORNERS  FOR  ZZ=1 

TO  500:  NEXT 

5605  N$="L":M$=“0":  GOSUB  3049:  GOSUB  10000:  N$="L":  MS="0": 
GOSUB  3049:  GOSUB  10000  '  TURN  CUBE  OVER 
5610  REM  POSITION  CORNERS 
5615  REM  POSITION  3,1,3 

5620  P1$=MID$(C(2,1,2),2,1):  P2$=RIGHT$(C(2,2,3) ,1) : 
P3$=LEFT$(C(3,2  ,2),1) 

5625  GOSUB  9900 

5630  IF  X=3  AND  Y=1  AND  2=3  THEN  5640 

5635  N$="2":MJ="0":  GOSUB  3049:  GOSUB  10000:  GOTO  5620 

5640  REM  POSITION  3,1,1 

5645  P1$=LEFT$(C(3,2,2) ,1) :  P2$=MID$(C(2,1,2),2,1): 
P3$=RIGHT$ (C(2,2,l),l) 

5650  GOSUB  9900 

5655  IF  X=3  AND  Y=1  AND  Z=1  THEN  5675'  REM  DFL  IS  CORRECT 

5660  IF  X=3  AND  Y=3  AND  Z=1  THEN  GOSUB  6001:  GOTO  5640 

5665  IF  X=3  AND  Y=3  AND  Z=3  THEN  GOSUB  6003:  GOTO  5640 

5670  PRINT"SOMETHING'S  HAYWIRE": END 
5675  REM  POSITION  3,3,1 

5680  P1$=LEFT$(C(3,2,2) ,1) :  P2$=MID$(C(2 , 3 .2) ,2,1) : 
P3$=RIGHT$ (C (2 , 2 , 1 ) , 1 ) 

5685  GOSUB  9900 

5690  IF  X=3  AND  Y=3  AND  Z=1  THEN  6100 

5695  N$=”H":M$="0":  GOSUB  3049:  GOSUB  10000:  GOSUB  6001 

5700  GOTO  6100  '  CORNERS  ARE  POSITIONED 

6000  REM  SWAP  DFL  WITH  DFR 

6001  Z$=''6.2. 6050205. 6. 20602020"  :FOR  11=1  TO  21  STEP  2: 
N$=LEFTJ(HI0$(Z$,II,2) ,1) :  M$=RIGHT$(MID$(Z$,II,2) ,1) : 

GOSUB  3049:  GOSUB  10000:  NEXT:  RETURN 

6003  REM  SWAP  DFL  WITH  DBR 

6004  Z$="6. 2. 605020205. 6. 206020":  FOR  II  =1  TO  21  STEP  2: 
N$=LEFT$(MID$(Z$, II , 2) , 1) :  M$=RIGHT$(MID$(Z$,II,2) ,1) : 

GOSUB  3049:  GOSUB  10000:  NEXT:  RETURN 

6100  REN  ORIENT  BOTTOM  CORNERS 

6105  REM  COUNT  NUMBER  OF  BOTTOM  CORNERS  THAT  MATCH 

6110  BC=0 

6115  B$=LEFT$(C(3,2,2),1)  1  REM  COLOR  TO  MATCH 

6125  IF  LEFT$(C(3, 1,1), 1)=B$  THEN  BC=BC+1 

6135  IF  LEFTS (C(3, 3,1), 1 )=B$  THEN  BC=BC+1 

6140  IF  LEFT$<C(3,3,3),1)=B$  THEN  BC=BC+1 

6145  IF  LEFT$(C(3,1,3),1)=B$  THEN  BC=BC+1 

6150  IF  BC=4  THEN  7000  'REM  BOTTOM  CORNERS  ARE  CORRECT 

6155  IF  BC=2  THEN  6160  ELSE  6300 


6160  IF  LEFT$(C(3, 1,3), 1)=B$  AND  LEFTS(C(3,3,1),1)=B$  AND 
RIGHT$(C(3,1,1) ,1)=B$  AND  MID$(C(3,3,3),2,1)=B$  THEN 
GOSUB  6900:  GOTO  6105'  PATTERN  6 
6165  IF  LEFT$(C(3, 1,3) , 1)=B$  AND  LEFT$(C(3,3,3),1)=B$  AND 
RIGHT$(C(3 ,1,1), 1)=B$  AND  RIGHT$(C(3,3,1),1)=B$  THEN  GOSUB 
6900:  GOTO  6105  1  PATTERN  5 

6170  IF  LEFT$(C(3,3,1),1)=B$  AND  LEFT$(C(3,3,3),1)=B$  AND 
RIGHT$(C(3,1,1),1)=B$  AND  RIGHT$(C(3,1,3),1)=BS  THEN  GOSUB 
6900:  GOTO  6105'  PATTERN  4 
6175  N$="H":H$="0":  GOSUB  3049:  GOSUB  10000: 

6299  GOTO  6105 

6300  IF  BC=1  THEN  6305  ELSE  6600 

6305  IF  LEFT$(C(3,1,1),1)=BS  AND  RIGHT$(C(3,3,1) ,1)=BS  AND 
RIGHT$(C(3,1,3) ,1)=B$  AND  HID$(C(3,3,3),2,1)=B$  THEN 
GOSUB  6900:  GOTO  6105  'PATTERN  1 

6310  IF  LEFT$(C(3, 1,1), 1)=B$  AND  RIGHT$(C(3,3,3) ,1)=B$  AND 
HID$(C(3,1,3),2,1)=B$  AND  MID$(C(3,3,1),2,1)=B$  THEN  GOSUB 
6900:  GOTO  6105  '  PATTERN  2 
6315  N$="H":M$="0":  GOSUB  3049:  GOSUB  10000 

6599  GOTO  6105 

6600  REM  BC=0 

6605  IF  RIGHT$(C(3,1,3),1)=B$  AND  RIGHT$(C(3,3,3),1)=B$  AND 
NID$(C(3 ,1,1) ,2 , 1)=B$  AND  MID$(C(3 , 3 , 1) , 2, 1)=B$  THEN  GOSUB 
6900:  GOTO  6105  '  REM  PATTERN  3 

6610  IF  NID$(C(3 ,1,1) ,2,1)=BS  AND  HID$(C(3,3,1),2,1)=B$  AND 
MID$(C(3,3,3),2,1)=B$  AND  MID$(C(3,1,3),2,1)=B$  THEN  GOSUB 
6900:  GOTO  6105  '  PATTERN  7 
6700  N$="H":M$=''0":  GOSUB  3049:  GOSUB  10000 

6899  GOTO  6105 

6900  Z$="6.2. 602. 6. 2020602020":  FOR  ZZ=1  TO  19  STEP  2: 
N$=LEFT$(HID$(Z$,ZZ,2) ,1) :  M$=RIGHT$(MID$(Z$,ZZ,2) ,1) : 

GOSUB  3049:  GOSUB  10000: NEXT:  RETURN 

7000  PRINT  §  960, "BOTTOM  EDGES  FOR  ZZ=1  TO 

500:  NEXT 

7002  6$=LEFT$(C(3,2,2),1)  'BOTTOM  COLOR 
7005  ZT=0 

7010  IF  RIGHT$(C(3,2,1) ,1)=RIGHT$(C(2,2,1) ,1)  OR 
RIGHT$(C(2 ,2,1) , 1)=LEFT$(C(3,2, 1) , 1)  THEN  7100'  FRONT  EDGE 
CORRECTLY  POSITIONED 

7015  N$="H":H$="0":  GOSUB  3049:  GOSUB  10000:ZT=ZT+1 
7020  IF  ZT<5  THEN  7010  ELSE  GOSUB  7900:  GOTO  7005 
7100  REM  CHECK  ALL  POSITIONS 

7110  IF(MID$(C(2,1,2) ,2,1)=MID$(C(3,1,2) ,2,1)  OR 
MID$(C(2,1,2),2,1)=LEFT$(C(3,1,2),1))  AND 
(NID$<C(3, 3,2) ,2 , 1)=MID$(C(2,3,2) ,2,1)  OR 
NIDJ(C(2,3,2),2,1)=LEFT$(C(3,3,2) ,1))  AND 
(RIGHTS (C (2 , 2 , 3) , 1 )=RIGHT$ (C (3 , 2 , 3) , 1 )  OR 
LEFTJ(C(3,2,3),1)=  RIGHT$(C(2,2 , 3) , 1) )  THEN  8000 

7111  GOSUB  7900:  GOTO  7100 

7900  Z$="4. 6050406.20204.6050406.":  FOR  11=1  TO  23  STEP  2: 
N$=LEFT$(HID$(Z$, II ,2) , 1) :  M$=RIGHT$(MID$(Z$,II,2) ,1) :  GOSUB 
3049:  GOSUB  10000:  NEXT  II:  RETURN 
8000  PRINTS  960,"  FINAL  STEP  FOR  11=1  TO 

500:  NEXT 

8005  REM  MATCH  BOTTOM  PATTERNS 

8010  IF  RIGHT$(C (3 , 2 , 1 ) , 1 )=8$  AND  RIGHTS (C (3 , 2 , 3) . 1)=B$  AND 
MID$(C(3,3^,2,1)=B$  AND  MID$(C(3,1,2),2,1)=B$  THEN  8100 
'  REM  PATTERN  1 

8015  IF  LEFT$(C(3,1,2),1)=B$  AND  LEFT$(C (3,3,2), 1)=B$  AND 
RIGHTS(C(3,2, 1) , 1)=B$  AND  RIGHT$(C<3, 2 , 3) , 1)=B$  THEN  8200 
'PATTERN  2 

8020  IF  LEFT$(C(3,2,1),1)=B$  AND  LEFT$(C(3,3,2),1)=B$  AND 
MID$(C(3,1,2) ,2,1)=B$  AND  RIGHT$(C(3,2,3),1)=B$  THEN  8300 
'PATTERN  3 

8030  IF  LEFT$(C(3,2,1),1)=B$  AND  LEFT$(C(3,3,2),1)=B$  AND 
LEFT$(C(3,2,3),1)=B$  AND  LEFT$(C(3,1,2).1)=B$  THEN  8400 
'  FINISHED!! 

8050  N$=”H":H$="0”:  GOSUB  3049:  GOSUB  10000:  GOTO  8005 
8100  Z$="4. 605050406. 20204.6050406.20204. 605050406.2.":  FOR 
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11=1  TO  43  STEP  2:  N$=LEFT$(MID$(Z$,II,2) , 1) : 
M$=RIGHT$(MID$(Z$,II,2),1):  GOSUB  3049:  GOSUB  10000: 

NEXT  II:  GOTO  8005 

8200  Z$="4. 6050406 . 204 . 6050406 . 204 . 605050406 . 204 . 6050406 . 
204.6050406.2020":  FOR  11=1  TO  63  STEP  2: 

N$=LEFT$ (MID$(Z$ , 1 1 , 2) , 1 ) :  M$=RIGHT$ ( MID J (Z$ , II , 2) , 1) : 

GOSUB  3049:  GOSUB  10000: NEXT:  GOTO  8005 

8300  Z$="4 . 6050406 .2.4.605.406.2.4. 605050406 . 4 . 6050406 . 

20204.60504  06.": FOR  11=1  TO  59  STEP  2: 

N$=LEFT$(MID$(Z$,II ,2) , 1) :  M$=RIGHT$( MID$(Z$ . II , 2) ,1) : 

GOSUB  3049:  GOSUB  10000:  NEXT:  GOTO  7000 
8400  PRINT  g  960 , STRINGS (26 , 32) ; : Q$="  FINISHED 
!!!!!!!!!!!!!!!!":  FOR  11=1  TO  LEN(Q$):  PRINT  g 
958+11*2, MIO$(Q$, 11,1);:  FOR  XX=1  TO  100:  NEXT  XX:  NEXT  II: 
GOTO  8400 

9900  REM  * . .  FIND  A  CUBE,  RETURN  LOCATION  AS  X.Y.Z 

******* 

9905  F1$=P1$+P2$+P3$:  F2$=P1$+P3$+P2$:  F3$=P2$+P1$+P3$: 
F4$=P2$+P3$+P1$:  F5$=P3$+P1$+P2$:  F6$=P3$+P2$+P1$ 

9910  FOR  X=1  TO  3: FOR  Y=1  TO  3:  FOR  Z=1  TO  3 
9915  C$=C(X,Y,Z) 

9920  IF  CJ=F1$  OR  CJ=F2$  OR  C$=F3$  OR  C$=F4$  OR  C$=F5$  OR 
C$=F6$  THEN  9940 
9925  NEXT  Z,Y,X 

9930  PRINT  @960 , X; Y ; Z ; :IF  INKEYJ-' "  THEN  9930 
9940  RETURN  '  REM  *****  CUBE  IS  AT  X,Y,Z 

10000  REM  **** .  PRINT  CUBE  . 

10010  PRINT  CHR$(23) ; 

10020  PRINTg  64,; 

10030  V=1:W=1 

10040  FOR  D=3  TO  1  STEP-1 

10050  PRINTg272 -  64*0 , ; 

10060  FOR  H=1  TO  3 
10070  GOSUB  10500 
10080  NEXT  H ,0 
10090  FOR  V=1  TO  3 
10100  PRINTg258+64*V, ; 

10110  H=1:W=2 

10120  FOR  0=3  TO  1  STEP-1 

10130  GOSUB  10500 

10140  NEXT  D 

10150  PRINTg272+64*V, ; 

10160  0=1 : W=3 
10170  FOR  H=1  TO  3 
10180  GOSUB  10500 
10190  NEXT  H 
10200  PRINTg288+64*V, ; 

10210  H=3:W=2 
10220  FOR  D=1  TO  3 
10230  GOSUB  10500 
10240  NEXT  D 
10250  PRINTg304+64*V, ; 

10260  D=3 : W=3 

10270  FOR  H=3  TO  1  STEP-1 

10280  GOSUB  10500 

10290  NEXT  H 

10300  NEXT  V 

10310  V=3:W=1 

10320  FOR  0=1  TO  3 

10330  PRINTg528+64*D, ; 

10340  FOR  H=1  TO  3 
10350  GOSUB  10500 
10360  NEXT  H , D 
10370  REM  FRAME 

10380  IF  POINT (1 , 12)=- 1  THEN  10495 


continued  on  page  60 


ASTROMQMY  SIMULATOR  $33,50  (Postpaid) 

The  Simulator  is  now  being  sold  to  schools 
around  the  country.  The  program  lets  stars 
and  planets  be  created,  The  created  objects 
then  move  according  to  the  laws  of  nature. 

A  universe  of  millions  of  galaxies  can  be 
explored.  Each  galaxy  can  be  magnified  to 
reveal  millions  of  stars.  Finally,  each  star 
system  can  be  explored  to  see  up  to  3  suns 
and  up  to  3  planets  moving  in  their  orbits. 

A  ship  can  be  launched  from  any  planet. 
The  ship  travels  under  the  influence  of  its 
own  engine  and  the  gravity  of  the  sun(s)  and 
planets,  It  is  challenging  to  land  the  ship 
on  a  planet  before  being  burned  up  in  a  sun 
or  running  out  of  fuel. 

The  program  is' easy  to  use,  Instructions 
appear  on  the  screen  as  needed.  A  manual  of 
23  projects  is  included,  The  program  runs  on 
any  16K,  Level  II,  Model  I  or  III  computer 
with  or  without  a  disk,  The  program  comes  on 
a  cassette,  but  is  easy  to  put  on  a  disk, 

Order  from!  G,  WOOTAN 

RFD  #  1 ,  BOX  224  CALLICOON,  NY  12723 


NEW  REPLACEMENT 

RIBBON  CARTRIDGES 


PRINTER 

MAKE,  MODEL  NUMBER 
(Contact  us  If  your  printer 
is  not  listed.  We  have  ribbons 
FOR  MOST  PRINTERS 

RIBBON 

SIZE 

Inches 
by  Yards 

NEW  REPLACEMENT 

CARTRIDGES 

Price  each  In 
quanlty  of 

3  6  12 

RIBBON 

INSERTS 

Cartridges 

Not  Included 

6  12 

ANADEX  9500 

i/2  x  30 

13.00 

12.75 

12.25 

36.00 

66.00 

CENTRONICS  (7-MEG) 

5/16  x  55 

7.50 

7.25 

6.75 

C.ITOH  Prowriter 

>/2  x  1  4 

8.75 

8.50 

8.00 

C.1TOH  Starwrlter 

5/16x17 

5.50 

5.25 

4.75 

COMMODORE  PET  8023P 

1/2X10 

9.00 

8.75 

8.00 

EPSON  MX70/MX80 

i/z  x  20 

7.50 

7.00 

6.50 

22.00 

40.00 

EPSON  MX  100 

1/2X30 

12.00 

11.50 

11.00 

32.00 

60.00 

IDS  Paper  Tiger  460/560 

1/2  x  36 

7.75 

7.50 

7.00 

NEC  5500/7700  Nylon 

*/2  X  15 

6.25 

6.00 

5.50 

30.00 

56.00 

Muitlstrlke 

1/4  x  133 

5.75 

5.50 

5.00 

22.00 

40.00 

Multistrike  High  Yield 

»/4  x  133 

6.50 

6.25 

5.75 

25.00 

46.00 

OKIDATA  Mlcrollne  84 

1/2  x  40 

6.25 

6.00 

5.50 

80,  82,  83 

1/2  X  18 

3.25 

3.00 

2.50 

QUME  Nylon 

1/2  X  15 

5.25 

5.00 

4.50 

30.00 

56.00 

QUME  Muitlstrlke 

1/4  x  98 

5.00 

4.75 

4.25 

15.00 

26.00 

RADIO  SHACK  DWII 

Carbon  Film -Black 

i/4  x  153 

6.25 

6.00 

5.50 

18.00 

30.00 

Carbon  Film -Blue,  Brown 

i/4  x  153 

7.00 

6.75 

6.25 

_ 

RADIO  SHACK  LP  l-ll-IV 

9/16  x  16 

4.25 

4.00 

3.50 

24.00 

42,00 

RADIO  SHACK  LPIII-V 

1/2  X  15 

6.25 

6.00 

5.50 

26.00 

48.00 

CHECK 

,  MONEY 

ORDER  or 

COD 

All  orders  shipped  U.S.  mail.  Free  shipping  on  prepaid  orders 
for  continental  U.S.  add  $2.00  for  orders  outside  continental  U.S. 
Allow  2  weeks  tor  personal  checks.  Phone  6  p.m.  -  9  p.m.  E.S.T. 
Monday  -  Friday  &  9-5  Saturday. 

ADEL  COMPUTER  MART 
(302)  492-8463  DEPT  20  BOX  195 

No  Sales  Tax  HARTLY,  DE  19953 
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RUBIK'S  CUBE 

continued  from  page  59 

10390  PRINTgl64," RUBIK’S  CUBE";:  PRINT® 16 , STRINGJ(8 , 131) ; : 
PRINT@258 , STRING$(30 , 131) ; :  PRINTg514,STRING$(30I131) ; : 
PRINT@784 , STRING$(8 , 131) ; 

10400  FOR  Y=12  TO  24 : SET (1 , Y) :SET (93 , Y) : SET ( 124 , Y) : NEXT 
10410  FOR  Y=0  TO  36 : SET (29 , Y) : SET (61 , Y) : NEXT 
10495  IF  ZFLAG=1  THEN  IF  INKEY$=""  THEN  10495 

10499  RETURN 

10500  PRINT"  " ; MID$(C (V , H , D) ,W,  1) ; :  RETURN 

10999  REM  ***  END  OF  PRINT  *** 

14000  REM  *»*****♦**«»«  MOVES  *»****«**»»«♦**»* 

14010  V=l:  PRINT®  960,"TOP  CLOCKWISE";:  GOSUB  17000:  RETURN 
'REM  80  OK 

14020  V=3:  PRINT®  960,"BOTTOM  CLOCKWISE";:  GOSUB  17050: 

RETURN  'REM  20  0K 

14030  H-l:  PRINT®960 , "LEFT  COUNTER  CLOCKWISE";:  GOSUB  15000: 
RETURN  'REM  4.  OK 

14040  H-l:  PRINT®  960, "LEFT  CLOCKWISE";:  GOSUB  15050:  RETURN 
'REM  40  OK 

14050  H=3:  PRINT®  960, "RIGHT  CLOCKWISE";:  GOSUB  15000:  RETURN 
'  REM  60  OK 

14060  H=3:  PRINT®960, "RIGHT  COUNTER  CLOCKWISE";:  GOSUB  15050: 
RETURN  'REM  6.  OK 

14070  D=l:  PRINT®  960, "FRONT  CLOCKWISE'1;:  GOSUB  16000:  RETURN 
'  REM  50  OK 

14080  D=l:  PRINTS  960, "FRONT  COUNTER  CLOCKWISE";:  GOSUB 
16050:  RETURN  'REM  5.  OK 

14090  V-l:  PRINTS  960, "TOP  COUNTER  CLOCKWISE";:  GOSUB  17050: 
RETURN  'REM  8.  OK 

14100  V=3:  PRINTS960, "BOTTOM  COUNTER  CLOCKWISE";:  GOSUB 
17000'  RETURN  'REM  2. 

14110  FOR  H=1  TO  3:  PRINTg960," LONGITUDINALLY  COUNTER  ";: 
GOSUB  15050: NEXT:  RETURN  'REM  L. 

14120  FOR  H=1  TO  3:  PRINT@960 , "LONGITUDINALLY  CLOCKWISE'';: 
GOSUB  15000: NEXT:  RETURN  'REM  L0 

14130  FOR  V=1  TO  3:  PRINTg960 , "HORIZONALLY  CLOCKWISE";:  GOSUB 
17000:  NEXT:  RETURN  'REM  H0 

14140  FOR  V=1  TO  3:  PRINTg960,  "HORIZONTALLY  COUNTER 
CLOCKWISE";:  GOSUB  17050:  NEXT:  RETURN  'REM  H, 

14150  F0RD=1  TO  3:  PRINTS  960, "TRANSVERSELY  CLOCKWISE";: 

GOSUB  16000:  NEXT:  RETURN  'REM  T0  T0 

14160  FOR  D=1  TO  3:  PRINTS  960, “TRANSVERSELY  COUNTER 

CLOCKWISE";:  GOSUB  16050:  NEXT:  RETURN  'REM  T. 

14999  REM  ***  END  OF  MOVES  *** 

15000  REM  ******SUBROUTINES  USED  BY  MOVES****** 

15010  REM  MM  ROTATE  LONGITUDINALLY  FRONT  TO  BACK  MM 
15020  T=C(1 , H , 3) :  TT-C(1,H,2):  C(1,H,3)-C(1,H,1): 

C( 1 , H ,2)=C(2 , H , 1 ) 

15030  C(1,H,1)=C(3,H,1) :  C(2,H,1)=C(3,H,2) :  C(3,H,1)= 

C(3, H ,3) :  C(3,H,2)=C(2,H,3) :  C(3,H,3)=T:  C(2,H,3)=TT 
15040  GOSUB  15100 

15045  RETURN  '  REM  END  OF  RL  F  TO  B 

15050  REM  MM  ROTATE  LONGITUDINALLY  BACK  TO  FRONT  mtf 
15060  T=C(1,  H , 1) :  TT=C(1,H,2):  C(1 , H . 1 )=C(1 , H , 3) : 
C(1,H,2)=C(2,H,3):  C(1,H,3)  -C(3,H,3):  C(2,H,3)=C(3,H,2) : 

C (3 , H , 3)=C(3 , H , 1) :  C(3.H,2)=C(2,H, 1) :  C(3,H,1)=T:  C(2,H,1)=TT 
15070  GOSUB  15100 

15080  RETURN'  REM  END  OF  RL  B  TO  F 

15100  REM  %%%%  EXCHANGE  LONGITUDINALLY  ***** 

15110  FOR  V=1  TO  3:  FOR  D=1  TO  3:  C(V,H,D)=MIDS(C(V,H,D),3,1) 
+  MID$(C(V,H,D) ,2,1)  +  MID$(C(V,H,D) ,1,1):  NEXT  D.V 
15120  RETURN  '  REM  END  OF  EL 

16000  REM 

16010  REM  Hm  ROTATE  TRANSVERSELY  CLOCKWISE  MM 
16020  T=C(1 , 3 , D) :  TT=C(1,2,D):  C(1 .3 . D)=C(1 , 1 .0) : 
C(1,2,D)=C(2,1,D):  C ( 1 , 1 , D)=C (3 , 1 , D) :  C (2 . 1 , D)=C(3 ,2 , D) : 


C(3,1,D)=C(3,3,D):  C(3,2,D)=  C(2,3,D) : C(3, 3, D)=T :C(2 , 3 , D)=TT 
16030  GOSUB  16100 

16040  RETURN  '  REM  END  OF  T  CW 

16050  REM  MM  ROTATE  TRANSVERSELY  COUNTERCLOCKWISE  MM 
16060  T=C(1 , 1 , D) :  TT=C(1,2,D):  C(1 , 1 , D)=C(1 , 3 . D) : 
C(1,2,D)=C(2,3,D) :  C(1 , 3 , D)=C(3 , 3 , D) :  C(2,3,D)=C(3,2,D) : 
C(3,3,D)=C(3,1,D):  C(3,2,0)=  C(2,1,D):  C(3,1,D)=T: 

C(2, 1 ,D)=TT 
16070  GOSUB  16100 

16080  RETURN  1  REM  END  OF  T  CCW 

16100  REM  ****  EXCHANGE  TRANSVERSELY  **** 

16110  FOR  V=1  TO  3:  FOR  H=1  TO  3:  C<V, H , D)=MIO$(C(V ,H ,D) ,2.1) 

+  MID$(C(V,H,D) .1,1)  +  MID$(C(V,H,D),3,1):  NEXT  H,V 
16120  RETURN  '  REM  END  OF  ET 

17000  REM  MM  ROTATE  HORIZONTALLY  LEFT  MM 
17010  T=C(V, 1,1):  TT=C(V,2, 1) :  C(V,1,1)=C(V,3,1): 

C(V,2, 1)=C(V ,3,2) :  C(V,3, 1)=C(V,3,3) :  C(V,3,2)=C(V,2,3) : 
C(V,3,3)=C(V,1,3) :  C(V,2,3)=  C(V,1,2):  C(V,1,3)=T: 

C(V,1,2)=TT 
17020  GOSUB  17100 

17030  RETURN  '  REM  END  OF  RHL 

17050  REM  MM  ROTATE  HORIZONTALLY  RIGHT  MM 
17060  T=C(V, 1,1):  TT=C(V,1,2):  C(V,1, 1)=C(V, 1 . 3) : 
C(V,1,2)=C(V,2,3):  C(V,1,3)=C(V,3,3):  C(V,2,3)=C(V,3,2) : 

C<V,3, 3)=C(V ,3,1):  C(V,3,2)=  C(V,2,1):  C(V,3,1)=T: 

C(V,2,1)-TT 
17070  GOSUB  17100 

17080  RETURN  '  REM  END  OF  RHR 

17100  REM  ****  EXCHANGE  HORIZONTALLY  %%%% 

17110  FOR  D=1  TO  3:  FOR  H=1  TO  3:  C(V,H,D)=MID$(C(V,H,D),1,1) 

+  HID$(C(V,H,D),3,1)  +  MID$(C(V,H,D),2,1):  NEXT  H,D 

17120  RETURN  '  REM  END  OF  EH 

17999  REM  ***  END  OF  SUBROUTINES  USED  BY  MOVES  *** 

INTERVAL 

This  program  will  tell  you  your  dates  or  ownership 
for  weekly  interval  ownership  of  condominiums  or  other 
"time-shared"  facilities. 

0  CLS:  PRINT'TNTERVAL  OWNERSHIP:  ":PRINT  TAB(l) , "WEEKS  BEGIN 
WITH  FIRST  SATURDAY  OF  THE  YEAR" 

1  U$="*  *  Mi  %%M§  ":U1J="*  *  M" 

2  CR=0 

5  PRINTg  7*64, "BY  WILLIAM  H.  PATRICK": PRINT  "RT7  PARADISE 
CAMP  ROAD":  PRINT  "HARRODSBURG ,  KENTUCKY  40330" 

10  PRINT:  INPUT  "DESIRED  YEAR  (1981  TO  2099) ";DY 
20  IF  DY<1981  OR  DY>2099  THEN  10 
30  AD=DY-1980 

40  IF  DY/4=INT (DY/4)  THEN  60 
50  AD=AD+INT (AD/4) 

60  AD=AD+4 

70  R=AD - INT (AD/7) *7  'R  IS  NUMBER  OF  DAY  OF  WEEK  YEAR  BEGINS 
ON 

80  W=1 

90  IF  R=0  THEN  ST=1  ELSE  ST=8-R 
100  READ  M$,M 

105  IF  DY/4=INT(DY/4)  AND  M$="FEBRUARY"  AND  CR=0  THEN  M=M+1 
:CR=1 

110  PRINT  USING  U$; "WEEK" , W, M$ , ST ; 

120  ED=ST+7 

130  IF  ED<=M  THEN  200 

140  ED=ED-M 

150  READ  M$,M 

200  PRINT  USING  U1$;M$,ED 

210  ST=ED 

220  W=W+1 

230  IF  W>52  THEN  1000 
240  GOTO  105 
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500  DATA  JANUARY , 31 , FEBRUARY , 28 , MARCH , 31 , APRIL , 30 , MAY , 31 , 

JUNE , 30 , JULY , 31 , AUGUST , 31 . SEPTEMBER, 30 , OCTOBER ,31, NOVEMBER , 30  , 
DECEMBER, 31, JANUARY, 31 

1000  INPUT  "ANOTHER  YEAR  (Y,N)";A$ 

1001  IF  A$="N"  THEN  END 

1002  IF  A$="Y"  THEN  RUN 

1003  GOTO  1000 


William  H.  Patrick 

Rte  7,  Paradise  Camp  Rd. 

Harrodsburg,  KY  40330  ■ 
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solely  for  his  personal  use.  The  inclusion  of  the  user's 
name  and  address  when  first  running  the  program  is 
undoubtedly  an  effective  deterrent  to  piracy. 

The  "KWIK"  Storage  Format 

Certainly  the  most  significant  feature  of  these 
cassette  operating  systems  is  the  KWIK  storage  format. 
Programs  stored  in  the  manner  are  saved  at  2200  baud 
on  the  Model  III  (almost  a  50%  improvement  over  1500 
baud)  and  from  2  times  to  6  times  faster  on  the  Model 
I.  Loading  time  saved  becomes  more  dramatic  as 
program  length  increases,  as  20  seconds  of  "gear 
shifting"  is  required  to  achieve  the  maximum  3000 
baud.  Typically,  a  4-minute  Model  I  program  would  load 
in  56  seconds  under  the  KWIK  format. 

The  KWIK  storage  procedure  includes  an  enhanced 
verification  process.  Even  if  no  speed  were  gained, 
KOS3  would  be  worth  $26  for  this  feature  alone. 

"Disk  Features" 

A  number  of  features  are  available  in  both  KWICOS 
and  KOS3  which  simulate  a  disk  operating  system. 
Programs  saved  on  cassette  may  be  given  passwords 
and  even  comments,  and  a  "directory",  including 
program  lengths,  may  be  obtained.  In  addition,  graphics 
are  used  to  indicate  what  process  is  occurring  at  any 
given  time.  Even  error  messages  are  improved,  such  as 
"RECORDER  NOT  READY." 

A  keyboard  debounce  feature  and  a  variable-speed 
LIST  command  are  available.  In  addition,  KOS3  (Model 
III)  adds  a  simple  command  to  deactivate  the  BREAK 
key,  simplified  I/O  routing  (easily  route  your  printer 
output  to  RS-232,  for  example),  a  command  to  display 
the  real-time  clock,  and  provisions  for  maintaining  the 
current  date. 


CONCLUSION 

It  is  possible  to  continue  reciting  commands, 
features,  and  praise  of  both  the  Lemons  Tech  loaders 
and  the  KWIK  Software  cassette  operating  system. 
However,  I  feel  that  the  information  presented  here 
speaks  for  itself.  For  $43.95  complete  ($26  for  KOS3  or 
KWICOS  +  $17.99  for  a  loader),  this  combination  of 
hardware  and  software  is  the  mass  storage  answer  for 
the  computerist  on  a  budget.  If  you  are  still  using  a 
cassette  system  and  do  not  plan  to  expand  in  the  near 
future,  there  is  no  excuse  not  to  purchase  these 
products. 
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RIBBONS 

Low  Price  •  FREE  Shipping 

SATISFACTION  GUARANTEED 

MX-80  Cartridge 


1-2 


price  each  in  quantity  of 
3-5  6-11  12-23 


24-47 


8.95  8.41  7.90  7.43  6.99 

RIBBON  LOOPS 

new  ribbon  lor  your  old  cartridge 
top  quality  nylon  •  standard  matrix  ink 
price  each  in  quantity  of 
1-2  3-5  6-11  12-23  24-47 

3.95  3.63  3.34  3.08  2.83 

7.86  7.23  6.65  6.12  5.63 

2.92  2.69  2.47  2.27  2.09 

2.26  2.08  1.91  1.76  1.62 

Loops  are  available  in  blue  or  black  ink  (same  price). 

You  may  mix  any  combination  for  quantity  price  breaks. 
Ribbon  loops  include  DO-IT-YOURSELF  INSTRUCTIONS. 
Florida  residents  add  5%  sales  tax  •  Ask  for  Free  catalog 

VISA  DATA  SYSTEMS  MasterCard 

(305)  788-2145  •  Box  99  •  Fern  Park,  FL  32730 


MX-70/  MX-80 
MX-100  double  length 
NEC  Spinwriter  Nylon 
Radio  Shack  26-1418 
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CLASSIFIED  ADVERTISING 

Introductory  Rates  (per  insertion)  IX  3X  6X  12X 

Special  discount  Price  (to  25  words)  $20  $15  $12  $10 

Special  Discount  Add'l  charge/word  $.45  $.40  $.35  $.30 

To  figure  cost  of  ad,  consider  words  like  "a,"  "the,"  "etc."  as 
one  word  each.  Telephone  number  with  area  code  counts  as 
two  words.  Please  type  or  print  your  ad  and  send  along  with 
payment  in  full  (check,  money  order,  Visa,  Master  Card,  or 
American  Express)  to  H  &  E  Computronics,  Inc.,  Classified  Ad¬ 
vertising  Department,  50  North  Pascack  Road,  Spring  Valley,  NY 
10977.  Your  ad  will  begin  in  the  next  available  issue. 


PROGRAMMER'S  AIDE:  easy 
way  to  keep  track  of  vari¬ 
ables.  5  books  per  package, 
$4.95.  Cypress  Computer, 
5244  Oxford,  Cypress  CA 
90630.  Cash,  check,  or 
money  order. 

STOCK  ANALYSIS  PRO¬ 
GRAMS  FOR  TRS-80.  For 
more  information,  write  to: 

R.  DeCrick 

7655  Whispering  Brook  C21 
Portage,  Ml  49081 

YOUR  AD  CAN  APPEAR 
FIERE  for  as  little  as  $10  per 
month. 


DIABLO  HyType  I  PRINTER, 

word  processing  quality  line 
printer  with  tractor  feed  at¬ 
tachment  and  full  set  of 
typewheels  and  ribbons, 
$1600.  Interfaces  to  expan¬ 
sion  port  of  TRS-80  Model  1. 
Complete  software  drivers  for 
10  or  12  character  per  inch 
printing,  with  or  without  auto¬ 
matic  page  eject.  Original 
cost  over  $2300.  Selling  be¬ 
cause  we  will  no  longer  be 
using  Model  I.  (914)  634- 
1821. 


PROGRAMS  PUBLISHED  IN 
Computronics  on  diskettes. 

Do  you  want  to  avoid  typing 
in  all  those  programs  pub¬ 
lished  each  month  in  Com- 
putronicsl  For  $12.00,  you 
can  have  a  diskette  contain¬ 
ing  all  the  programs  pub¬ 
lished  in  any  single  issue  with 
corrections.  Specify  the  issue 
number  you  want  and  wheth¬ 
er  you  want  Model  I  or 
Model  III  media  (not  avail¬ 
able  for  other  models).  Or¬ 
der  from  Box  A,  H  &  E  Com¬ 
putronics,  50  North  Pascack 
Road,  Spring  Valley,  NY 
10977,  or  call  toll-free  order 
number  (800)  431-2818  out¬ 
side  New  York  state;  inside 
New  York,  call  (914)  425- 
1535.  Add  $3.00  shipping 
and  handling  charge. 


COMPUTRONICS  Issue  #37 
(August  1981)  program  dis¬ 
kette  contains  the  following 
programs:  Calendar,  Labels, 
Pizza,  Diving,  Payroll,  Citysort, 
Graph  Print  and  Text  Print, 
and  Alien  Invasion  Force. 


COMPUTRONICS  Issue  #41 
(January  1982)  program  dis¬ 
kette  contains  the  following 
programs:  Amortization  of 
Loans,  Matrix,  Gauss  Elimina¬ 
tion,  Linear  Equations,  Spell- 
out,  Currency  Conversions, 
Density,  and  110  Baud  ASCII 
Radio  Teletype  Receive  Pro¬ 
gram. 

COMPUTRONICS  Issue  #42 
(February  1982)  program  dis¬ 
kette  contains  the  following 
programs:  The  Graphic  Pie, 
Mortgage  Comparisons,  State¬ 
ment  of  Income,  Chainer, 
Windcrab,  Horsepower,  and 
Permute. 


COMPUTRONICS  Issue  #43 
(March  1982)  program  dis¬ 
kette  contains  the  following 
programs:  Interest  Formulas, 
Depreciation  under  the  1981 
Economic  Recovery  Tax  Act, 
Electric,  Sieve,  and  Horizon, 
and  CLINTEST,  a  series  of 
programs  to  help  diabetics 
monitor  their  sugar  levels,  in¬ 
cluding  Menu,  Clintest,  Food- 
log,  Calcount,  Master  and 
Print. 


COMPUTRONICS  Issue  #44 
(April  1982)  program  dis¬ 
kette  contains  the  following 
programs:  Check  writer,  Castle 
Adventure,  Graphic  Combina¬ 
tions,  the  Ladder,  National 
Debt,  Box,  Roots,  and  April 
Fool. 


COMPUTRONICS  Issue  #46 
(June  1982)  program  dis¬ 
kette  contains  the  following 
programs:  Break  Even  Analy¬ 
sis,  Coin  Inventory  program, 
Chase,  Reaction  Time,  USA, 
Selling  Price,  Loan  Processor, 
No  Star  Baseball,  and  Metric 


Conversion  Calculator. 


COMPUTRONICS  Issue  #48 
(August  1982)  program  dis¬ 
kette  contains  the  following 
programs:  Information  Retriev¬ 
al  System,  including  KW, 
Sort,  Merge,  and  List;  the 
Transportation  method  of 
linear  programming;  the  Beale 
Treasure,  including  Filer, 
Writel,  Write2,  Write3,  Pro¬ 
cess/Let,  Process/Ll ,  and  Pro- 
cess/L2;  and  the  Versatile 
Peeker. 


COMPUTRONICS  Issue  #49 
(September  1982)  program 
diskette  contains  the  follow¬ 
ing  programs:  the  Simplex 
method  of  linear  program¬ 
ming;  Records  and  Files,  in¬ 
cluding  Schedule,  Schedule/ 
Sub,  Schedule/Seq,  Schedule/ 
Ran;  Monthly  Expenditure  In¬ 
formation  package,  including 
Update,  Mstex,  Monthre, 
and  Report;  and  Scramble. 

COMPUTRONICS  Issue  #50 
(October  1982)  program  dis¬ 
kette  contains  the  following 
programs:  Cash  flow  analysis 
for  real  estate  and  other  in¬ 
vestments;  Epson  MX-80  Graf- 
trax  Initialization  program; 
Kaleidoscope,  Gascost,  Per- 
mile,  and  Balloon  by  Gordon 
Speer. 

COMPUTRONICS  Issue  #51 
(November  1982)  program 
diskette  contains  the  follow¬ 
ing  programs:  the  Cardwriter, 
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Richard  Kaplan 
H  &  E  Computronics 
50  N.  Pascack  Road 
Spring  Valley,  NY  10977 

Loaders  available  from: 

Lemons  Tech  Services 
P.O.  Box  429 
Buffalo,  MO  65622 
(41 7)  345-7643 


the  Graphical  Method  of 
Linear  Programming,  MACS- 
MAP,  and  Phone  bill  sorting 
program. 

COMPUTRONICS  Issue  #52 
(December  1982)  program 
diskette  contains  the  follow¬ 
ing  programs:  Regression  Anal¬ 
ysis  with  Confidence  and 
Prediction  Limits,  Change 
baud  rates  on  system  tapes, 
PERT— Program  Evaluation 
and  Review  Technique,  Grid, 
and  Monogram. 

COMPUTRONICS  Issue  #53 
(January  1983)  program  dis¬ 
kette  contains  the  following 
programs:  General  Ledger 
Menu,  Alpha  Program,  Roulet¬ 
te,  Serious  EDTASM,  Sur¬ 
name  Conversion,  Jack  and 
Jill,  and  Disk  Checkbook 
Maintenance  System. 

COMPUTRONICS  Issue  #54 
(February  1983)  program  dis¬ 
kette  contains  the  following 
programs:  Startup  routines  for 
General  Ledger  package, 
CLOCK/BAS,  Findit,  Boxer. 

COMPUTRONICS  Issue  #55 
(March  1983)  program  dis¬ 
kette  contains  the  following 
programs:  TRANS  program  to 
input  transactions,  Michigan 
and  Graphics  for  Epson,  Type, 
Alphabet  Puzzle,  Fraction  Cal¬ 
culator,  Memory  Display,  two 
programs  for  bit-image  graph¬ 
ics,  and  Bowling  Statistics 
Ledger. 


KWIK  software  available  from: 

KWIK  Software 
Box  328 

Bolivar,  MO  65613 
(417)  326-7154  ■ 
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The  Original  Magazine  for  Owners  of  the  TRS-80™  Microcomputer 

MODEL  I  •  MODEL  11/16  •  MODEL  III  •  POCKET  COMPUTER  •  COLOR  COMPUTER 


Software 
for  TRS-80 
Owners 


CQMPLJTRQNICS 

MONTHLY  NEWS  MAGAZINE 


I 

U  Monthly 
"  Newsmagazine 
for  TRS-80 
Owners 


•  PRACTICAL  APPLICATIONS 

•  NEW  EXPANDED  BUSINESS 
SECTIONS 

•  GAMBLING 

•  GAMES 

•  EDUCATION 

•  PERSONAL  FINANCE 


•  BEGINNER’S  CORNER 

•  NEW  PRODUCTS 

•  SOFTWARE  EXCHANGE 

•  MARKET  PLACE 

•  QUESTIONS  &  ANSWERS 

•  PROGRAM  PRINT  OUTS 
...and  MORE! 


YOUR  CHOICE  k. 

A. 

*  *  *  *  $1000  *  *  *  * 

FREE 

► 

More  than  $1000  worth  of 
valuable  coupons  for  free 
merchandise,  discount  soft¬ 
ware,  hardware  at  a  fraction 
over  cost  and  computer 

with  your  Subscription  or  Renewal 

supplies. 

B. 


OR 


A  Word  Processor, 
Data  Management 
System  and  Cleanup 

(A  maze  game)  All  on  cassette. 
(Add  $3  for  diskette,  add  $5 
for  modified  MOD-ll/16  diskette 
version — N/A  on  color  computer 
or  pocket  computer.) 


iCQMPUTRQNICSs 

50  North  Pascack  Road 
Spring  Valley,  New  York  10977 


CALL  TOLL  FREE 

800-431-2818 

(Outside  of  New  York  State) 


24  HOUR  ORDER  LINE 


914-425-1535 


□  One  Year  Magazine  Subscription  $24  □  New  □  Renewal 

□  Two  Year  Magazine  Subscription  $48.00  □  New  □  Renewal 

□  Sample  Issue  $4.  □  Mod  11/16  Newsletter  Subscription  $18 

Your  Choice:  $1000  offer(see  box  A)  □  or  Word  Processor/Data  Management  □ 
Model  I  □  Model  11/16  □  Model  III  □  Color  Computer  □  Pocket  Computer  □ 


NEW! 


NEW! 


MOD-ll/16 

NEWSLETTER 

$18/Year  (or  12  issues) 


Name 

Address 

City 

State 

HHIH 

Signature 

Credit  Card  Number 

Expiration  Date 

Add  $12/ Year  (Canada,  Mexico)— Add  $24/  Year  Air  Mail  outside  of  U.S.A.,  Canada,  and  Mexico 
All  Prices  and  Specifications  Subject  to  Change 

*  TRS-80  is  a  trademark  of  the  Radio  Shack  Division  of  Tandy  Corp. 


Department  of  the  Treaeury— Internal  Revenue  Service 

U.S.  Individual  Income  Tax  Return  Uc/Ot  J  oj  omb  no.  1545-0085 


Uu  Your  first  name  and  initial  (if  joint  return,  also  give  spouse’s  name  and  initial;  Last  name 

IRS 

label. - 

Other-  Present  home  address  (Number  and  street,  including  apartment  number,  or  rural  route) 

wise, 

please - — - 

print  City' town  or  post  offic•'  stata  and  ZIP  coda  Your  occupation 

or  type.  Spouse's  occupation 


Presidential  ^  Do  you  want  $1  to  go  to  this  fund? . . 

Election  Campaign  r  If  joint  return,  does  your  spouse  want  $1  to  go  to  this  fund? .  .  . 


mm 


Spouse's  social  security  no. 


Note:  Checking  "Yes"  will 
not  increase  your  tax  or  re- 
duce  your  refund. 


micromatic  TRS-80*  Owners  Do  your  Own 

PROGRAMMING 

company  Taxes  Like  An  Expert  with  TAX/SAVER  II™ 

*  TRS-80  is  a  trademark  of  the  Radio  Shack  Division  of  Tandy  Corp.  _ 


ECO  MODELS  I  or  III 


TAX/SAVER  II™  —  The  tax  help  program  for  the  layman,  the  professional  accountant  or  tax  preparer. 

New  and  expanded,  TAX/SAVER  IF"  offers  a  different  approach  to  preparing  a  tax  return.  Like  the  original,  the  new  version  has 
the  tax  regulations  programmed  in  so  it  is  more  than  just  a  calculator.  Designed  for  non  accountants,  TAX/SAVER  IF"  asks  you 
questions,  just  as  an  accountant  does.  Based  on  your  answers,  it  leads  you  through  the  tax  maze  to  your  lowest  legal  tax.  Then  it 
tells  you  how  to  fill  in  your  return,  line  by  line,  or  it  will  output  to  a  printer. 

TAX/SAVER  IF"  also  has  speed  features  for  those  doing  more  than  one  return.  Optional  program  instruction  and  tax  text  make 
TAX/SAVER  IF"  the  practical  system  for  professional  preparers  as  well.  TAX/SAVER  IF"  has  full  disk  storage  of  data  files  (with 
optional  password  protection). 

The  manual  includes  information  on  special  tax  areas,  lists  of  possible  deductions  and  a  tax  glossary. 

TAX/SAVER  IF"  compares  itemized  deductions  to  national  averages;  automatically  computes  certain  limitations  •  for  example,  on 
medical  deductions  and  contributions;  checks  for  excess  FICA;  helps  determine  dependents.  Yet,  TAX/SAVER  IF"  offers  the 
privacy  and  convenience  of  home  use. 

The  user-oriented  design  with  special  screen  formatting  makes  data  entry,  verification  and  correction  easy.  Yet  you  are  always  in 
control.  You  can  skip  any  help  features  or  parts  of  the  program  that  you  don’t  need. 

TAX/SAVER  II’" 

•  Completes  long  and  short  forms  (1040  &  1040 A) 

•  Itemized  Deductions  ■  Schedule  A 

•  Interest  &  Dividends  •  Schedule  B 

•  Tax  Calculation  *  Tables,  Rates 

•  Tax  Savings  Methods  *  Income  Averaging,  Maximum  Tax,  Alternative  Tax 

•  Business  Income  -  Schedules  C  &  SE 

•  Capital  Gains  -  Schedule  D 

•  Allows  you  the  privacy  of  your  own  home 

•  Lets  you  help  friends  and  relatives  with  their  taxes 

•  Has  built-in  aids.  Answers  specific  questions  like  “Is  my  father  my  dependent?"  and  “Are  my  deductions  reasonable?" 

•  Manual  includes  1982  tax  forms,  information  on  special  tax  areas,  lists  of  possible  deductions,  and  glossary  of  tax  terms 

•  Completes  long  and  short  forms  including  itemized  deductions,  excess  FICA,  earned  income  credit,  community  property, 
tax  calculation  (comparing  all  possible  filing  statuses  in  one  run) 

•  Tax  regulat  ions  are  programmed  in  by  our  team  of  accountants.  Just  type  in  your  figures  &  you’ve  done  your  own  tax  return 

•  Helps  you  find  the  lowest  tax 

•  Discounts  on  yearly  updates 

•  Prints  out  on  standard  IRS  forms  overlays  or  plain  tractor  feed  paper 

•  Accepts  totals  from  all  other  tax  forms  not  listed  here 


PROFESSIONAL  TAX/FORECASTERT 
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REVIEWS: 

"....well  designed  and  easy  to  use”  -  D.  Lubar,  Creative  Computing  1/81 
“...TAX/SAVER"'  may  very  well  live  up  to  its  name" 

M.  Tannenbaum.  CPA,  80  Microcomputing  2/81 

CUSTOMERS: 

“For  the  price  it  can't  be  beat.  1  am  looking  forward  to  next  year.  With  this 
program  I  finish  my  filing  in  2  hours.  Thank  you." 

"Excellent  presentation.  Tutorial  style  is  one  of  its  most  attractive  attri¬ 
butes.  Finally,  a  program  I  can  really  use?" 

PROFESSIONALS: 

“This  is  the  perfect  program  for  those  doing  taxes  for  others  for  reasonable 
fees,  it  was  obviously  written  by  folks  that  know  both  programming  and  tax 
law."  "TAX/SAVER'"  is  superior." 


T AX/FOREC  ASTER'",  the  quick  tax  estimator  (with  printout)  for  both  1982  and  1983  l§ts  you  revise  its  estimate  by  merely  changing  one  or  more  lines.  Use  it  as  a  tax  planner  either 
together  with  TAX/SAVER  IF"  or  by  itself.  TAX/FORECASTER'"  lets  you  quickly  ask  all  of  your  WHAT  IF?  Questions  and  instantly  recalculates  your  taxes.  A  great  tax  preparation 
aid  for  both  the  layman  and  professional.  Includes  Income  Averaging  and  disk  storage  of  Client  files. 

•  Both  TAX/SAVER  IF"  and  TAX/FOREC  ASTER'"  are  tax-deductible  •  Discounts  are  given  on  yearly  updates  •  Free  tax  newsletter  is  issued  annually. 

With  the  combined  package  TAX/SAVER  IF"  and  TAX/FORECASTERT"  you  can  now  have,  at  an  affordable  price,  the  power  to  predict,  control  and  reduce  your  tax  liability. 


□  TAX/SAVER  II®  (MOD  I  &  III)  $139.95  -  Manual  Included 

□  PROFESSIONAL  TAX/FORECASTER®  (Requires  48K) 
(MOD  I  &  III)  $99.95  ($84.95  if  purchased  with  TAX/SAVER  II®) 

□  UPDATE  for  Registered  TAX/SAVER  II®  Owners  $83.95 

□  TAX  FORM  OVERLAYS  $39.95 


SYSTEM  REQUIREMENTS 

□  TRS-80  Model  I  with  32K  and  2  disk  drives 

□  TRS-80  Model  III  with  32K  and  2  disk  drives 


iCQMPUTRQWICS: 


AHUA'IF/  JI'.IJ 


SO  N.  PASCACK  ROAD 
SPRING  VALLEY,  NEW  YORK  10977 


NEW  TOLL-FREE 

ORDER  LINE 

(OUTSIDE  OF  N  Y.  STATE) 

(800)  431-2818 


24 


HOUR 

ORDER 

LINE 


(914)  425-1535 


■k  30-Day  money  back  guarantee 

*  ADD  $3.00  FOR  SHIPPING  IN  UPS  AREAS 

★  ADD  $4.00  FOR  C.O.D.  OR  NON-UPS  AREAS 

*  ADD  $5.00  TO  CANADA  AND  MEXICO 

★  ADD  PROPER  POSTAGE  OUTSIDE  U.S.,  CANADA  A  MEXICO 


-  ALL  PRICES  &  SPECIFICATIONS  SUBJECT  TO  CHANGE  - 
-  DELIVERY  SUBJECT  TO  AVAILABILITY  - 


CQMPUTRQNICS 


N 

C. 


•  •  EVERYTHING  FOR  YOUR  TRS-80'"  •  ATARI  "  •  APPLE  "  •  PET"  •  CP/M'"  •  XEROX'"  •  IBM  "  •  OSBORNE  "  •  • 

• • KAYPRO • • 

*  TRS-80  is  a  trademark  of  the  Radio  Shack  Division  of  Tandy  Corp.  ■  *  ATARI  is  a  trademark  of  Atari  Inc.  'APPLE  is  a  trademark  of  Apple  Corp.  *  PET  is  a  trademark  of  Commodore 
•  CP/M  is  a  trademark  of  Digital  Research  •  'XEROX  is  a  trademark  of  Xerox  Corp.  *  IBM  is  a  trademark  of  IBM  Corp.  '  OSBORNE  is  a  trademark  of  Osborne  Corp. 


BUSINESS  PAC  100 


-  ressed  uiirhin  24-Hours 

*  A"  back  guarantee 

*  30-Day  money 


100  Ready-To-Run 
Business  Programs 


(ON  CASSETTE  OR  DISKETTE) . Includes  128  Page  Users  Manual . 

Inventory  Control . Payroll . Bookkeeping  System . Stock  Calculations. 

Checkbook  Maintenance . Accounts  Receivable.. ..Accounts  Payable . 


BUSINESS  100  PROGRAM  LIST 


NAME  DESCRIPTION 

1  RCILE78  Interest  Apportionment  by  Rule  of  the  78's 

2  ANNCJl  Annuity  computation  program 

3  DATE  Time  between  dates 

4  DAYYEAR  Day  of  year  a  particular  date  falls  on 

5  LEASEiNT  Interest  rate  on  lease 

6  BREAKEVN  Breakeven  analysis 

7  DEPRSL  StraightJine  depreciation 

8  DEPRSY  Sum  of  the  digits  depreciation 

9  DEPRDB  Declining  balance  depreciation 

1 0  DEPRDDB  Double  declining  balance  depreciation 

1 1  TAXDEP  Cash  flow  vs.  depreciation  tables 

12  CHECK2  Prints  NEBS  checks  along  with  daily  register 

13  CHECKBK1  Checkbook  maintenance  program 

14  MORTGAGE/ A  Mortgage  amortization  table 

1 5  MCILTMON  Computes  time  needed  for  money  to  double,  triple, 

1 6  SALVAGE  Determines  salvage  value  of  an  investment 

17  RRVAR1N  Rate  of  return  on  investment  with  variable  inflows 

18  RRCONST  Rate  of  return  on  investment  with  constant  inflows 

19  EFFECT  Effective  interest  rate  of  a  loan 

20  FVAL  Future  value  of  an  investment  (compound  interest) 

21  PVAL  Present  value  of  a  future  amount 

22  LOANPAY  Amount  of  payment  on  a  loan 

23  REG  WITH  Equal  withdrawals  from  investment  to  leave  0  over 

24  SIMPDISK  Simple  discount  analysis 

25  DATEVAL  Equivalent  &  nonequivalent  dated  values  for  oblig. 

26  ANNUDEF  Present  value  of  deferred  annuities 

27  MARKUP  %  Markup  analysis  for  items 

28  SINK  FUND  Sinking  fund  amortization  program 

29  BONDVAL  Value  of  a  bond 

30  DEPLETE  Depletion  analysis 

31  BLACKSH  Black  Scholes  options  analysis 

32  STOCVAL1  Expected  return  on  stock  via  discounts  dividends 

33  WARVAL  Value  of  a  warrant 

34  BONDVAL2  Value  of  a  bond 

35  EPSEST  Estimate  of  future  earnings  per  share  for  company 

36  BETAALPH  Computes  alpha  and  beta  variables  for  stock 

37  SHARPE  1  Portfolio  selection  model-i.e.  what  stocks  to  hold 

38  OPTWRITE  Option  writing  computations 

39  RTVAL  Value  of  a  right 

40  EXPVAL  Expected  value  analysis 

41  BAYES  Bayesian  decisions 

42  VALPRINF  Value  of  perfect  information 

43  VALADINF  Value  of  additional  information 

44  (JTILfTY  Derives  utility  function 

45  SIMPLEX  Linear  programming  solution  by  simplex  method 

4b  TRANS  Transportation  method  for  linear  programming 

47  EOQ  Economic  order  quantity  inventory  model 

48  QUEUE1  Single  server  queueing  (waiting  line)  model 

49  CVP  Cost-volume-profit  analysis 

50  CONDPROF  Conditional  profit  tables 

51  OPTLOSS  Opportunity  loss  tables 

52  FQUOQ  Fixed  quantity  economic  order  quantity  model 

53  FQEOWSH  As  above  but  with  shortages  permitted 

54  FQEOQPB  As  above  but  with  quantity  price  breaks 

55  QCIEUECB  Cost  benefit  waiting  line  analysis 

56  NCFANAL  Net  cash  flow  analysis  for  simple  investment 

57  PROFIND  Profitability  index  of  a  project 

58  CAP1  Cap.  Asset  Pr.  Model  analysis  of  project 


59  WACC  Weighted  average  cost  of  capital 

60  COMPBAL  True  rate  on  loan  with  compensating  bal.  required 

61  DISCBAL  True  rate  on  discounted  loan 

62  MERGANAL  Merger  analysis  computations 

63  FIN  RAT  Financial  ratios  for  a  firm 

64  NPV  Net  present  value  of  project 

65  PRINDLAS  Laspeyres  price  index 

66  PRINDPA  Paasche  price  index 

67  SEASIND  Constructs  seasonal  quantity  indices  for  company 

68  T1METR  Time  series  analysis  linear  trend 

69  TIMEMOV  Time  series  analysis  moving  average  trend 

70  FCJPRINF  Future  price  estimation  with  inflation 

7 1  MAILPAC  Mailing  list  system 

72  LETWRT  Letter  writing  system-links  with  MAILPAC 

73  SORT3  Sorts  list  of  names 

74  LABEL  1  Shipping  label  maker 

75  LABEL2  Name  label  maker 

76  BUSBCID  DOME  business  bookkeeping  system 

77  TIMECLCK  Computes  weeks  total  hours  from  timeclock  info. 

78  ACCTPAY  In  memory  accounts  payable  system  storage  permitted 

79  INVOICE  Generate  invoice  on  screen  and  pnnt  on  printer 

80  INVENT2  In  memory  inventory  control  system 

81  TELDIR  Computerized  telephone  directoiy 

82  T1MUSAN  Time  use  analysis 

83  ASSIGN  Use  of  assignment  algorithm  for  optimal  job  assign. 

84  ACCTREC  In  memory  accounts  receivable  system-storage  ok 

85  TERMSPAY  Compares  3  methods  of  repayment  of  loans 

86  PAYNET  Computes  gross  pay  required  for  given  net 

87  SELLPR  Computes  selling  price  for  given  after  tax  amount 

88  ARBCOMP  Arbitrage  computations 

89  DEPRSF  Sinking  fund  depreciation 

90  (JPSZONE  Finds  UPS  zones  from  zip  code 

91  ENVELOPE  Types  envelope  including  return  address 

92  AUTO  EXP  Automobile  expense  analysis 

93  INSF1LE  Insurance  policy  file 

94  PAYROLL2  In  memory  payroll  system 

95  DILANAL  Dilution  analysis 

96  LOANAFFD  Loan  amount  a  borrower  can  afford 

97  RENTPRCH  Purchase  price  for  rental  property 

98  SALELEAS  Sale  leaseback  analysis 

99  RRCONVBD  Investor's  rate  of  return  on  convertable  bond 

1 00  PORTVAL9  Stock  market  portfolio  storage-valuation  program 


□  TRS-80  Cassette  Version 

□  TRS-80  (Mod-1  or  III),  Pet,  Apple 
or  Atari  Versions 

□  TRS-80  Mod-ll,  IBM,  Osborne 
anyd  CP/M  Versions 


ADD  $3.00  FOR  SHIPPING  IN  UPS  AREAS 
ADD  $4.00  FOR  C.O.D.  OR  NON-UPS  AREAS 
ADD  $5  00  TO  CANADA  AND  MEXICO 

ADD  PROPER  POSTAGE  OUTSIDE  OF  U.S..  CANADA  AND  MEXICO 


$9,ss  un/ 

^s?s 


$149.95 


•CQMPUTRQNICS 


CJ*'  CTMi>  •-«€  **/t  X 


50  N.  PASCACK  ROAD 
SPRING  VALLEY,  NEW  YORK  10977 


HOUR 

OA  ORDER 

^  UNE 


ASK  FOR  OUR  64-PAGE  CATALOG! 


DEALER  INQUIRIES  INVITED 


425-1&35 

ALL  PRICES  &  SPECIFICATIONS  SUBJECT  TO  CHANGE 
DELIVERY  SUBJECT  TO  AVAILABILITY 


The  Complete  Cock  Cf 
Random  Access  Data  Tile  Programming 

For  TRS-80*,  IBM  Personal  Computer*,  Osborne*,  and  all  Microsoft  BASIC*  computers 


The  last  word  on  disk  random  access  and  file  handling  techniques,  this  series 
is  intended  for  everyone  —  beginning  programmers,  businessmen  and 
professionals  will  learn  how  to  create  custom  programs  to  handle  inventories, 
mailing  lists,  work  scheduling,  record  keeping,  and  many  other  tasks,  while 
more  experienced  programmers  will  learn  advanced,  professional  program¬ 
ming  techniques  for  faster,  more  efficient  data  storage  and  retrieval. 

Although  random  access  file  handling  is  a  matter  of  some  complexity,  the 
subject  has  been  treated  in  a  simple  and  down-to-earth  fashion,  so  that  any¬ 
one  with  some  small  familiarity  with  programming  in  Microsoft  BASIC  will  be 
able  to  cope  with  the  material.  Each  stage  of  learning  uses  a  sample  program 
as  a  starting  point.  The  programs  grow  in  capability  and  complexity  as  the 
books  progress  into  all  of  the  various  aspects  of  file  handling  and  record 
manipulation.  An  extensive  effort  has  been  made  to  keep  the  material  co¬ 
herent  and  every  program  line  is  explained  in  detail. 


U 


THE 

COMPLETE 

cccr 

OE 

PAN PCM 
ACCESS 
PATA  EILE 
PROGRAMMING 


Volume  I:  Basic  Tile 

•  The  writing  of  a  Menu  to  Summarize 
program  functions 

•  The  writing  of  a  screen  format  to 
accept  data  for  records 

•  The  creation  of  the  basic  record 

•  The  FIELD  and  LSET  routines  for 
buffer  preparation 

•  The  writing  of  the  record  to  disk 
in  a  random  access  mode 

•  The  ability  to  change  or  edit  a 
record 

•  The  LPRINT  capability  from  disk  using 
three  different  formats 

•  Deleting  a  record  from  a  random 
file 

•  Sorting  the  random  file 


Handling  Techniques 

•  Searching  the  random  file  by 
name  or  key  field 

•  The  ability  to  search  in  a  "NEXT 
or  PRIOR”  fashion 

•  The  ability  to  purge  deleted 
records  from  a  disk  file 

•  The  ability  to  calculate  with 
data  from  a  disk  file 

•  The  provision  for  future  expansion 
of  the  data  fields 

•  The  use  of  flags  to  prevent 
program  crashes 

•  Date  setting,  printer  on-line  and 
many  other  routines  to  make  a 
program  run  like  a  commercially- 
written  program 


Vclume  II:  Advanced  Tile  Handling  Techniques 


Blocking  &  de-blocking,  Shell- 
Metzner  sort,  In-place  screen  editing, 
recovery  of  deleted  record  space 
Alpha-index  record  retrieval,  fast 
machine/BASIC  sort 
Linked  list  record  structure  and 
sort-merge,  deleted  record  removal 
and  file  reorganization 
Multi-key  file  reorganization  and 
record  searching 


•  Relational  database  programming- 
comprehensive  self-balancing 
accounting  system  with  printouts 

•  Hashcoded  data  file  manipulation— 
(probably  the  fastest  method  of 
data  retrieval).  Hashing  the  input 
key  and  recovery  method  explained 

•  Span-blocking  techniques  (allows; 
creation  of  records  longer  than 
256  bytes  without  wasted  space 


The  Complete  Cook  Cf  Random  Access  Lata  Tile  Programming 


Volume  I:  Basic  File  Handling  Techniques . $29.95 

optional  Vol.  I  Program  Disk  for  Model  l/lll  . $28.50 

optional  Vol.  I  Program  Disk  for  Model  II  . $32.50 

Volume  II:  Advanced  File  Handling  Techniques  . $29.95 

'  optional  Vol.  II  Program  Disks  for  Models  I,  II  or  III  . $49.95 


iCQMPUTRQNICS! 


SO  N.  PASCACK  ROAD 
SPRING  VALLEY,  NEW  YORK  10977 


HOUR 

24  ORDER 

LINE 


(914)  425-1535 


NEW  TOLL-FREE 

ORDER  LINE 

(OUTSIDE  OF  N  Y.  STATE) 

(800)  431-2818 


ADD  $3.00  FOR  SHIPPING  IN  UPS  AREAS 
AOD  $4.00  FOR  C.O.D.  OR  NON-UPS  AREAS 
ADD  $5.00  TO  CANADA  AND  MEXICO 
AOD  PROPER  POSTAGE  OUTSIDE  OF  U.S.. 
CANADA  AND  MEXICO  _ 


ALL  PRICES  AND  SPECIFICATIONS  SUBJECT  TO  CHANGE  *** 
DELIVERY  SUBJECT  TO  AVAILABILITY 


—  30-DAY  MONEY  BACK  GUARANTEE  — 


Introducing  the  Most  Powerful 
Business  Software  Ever! 


TRS-80™  (Model  I,  II,  III,  or  16)  •  APPLE™  •  IBM™  •  OSBORNE™  •  CP/M™  •  XEROX™ 


Tl red  or  Ye ur  ^ 

6CNECAIL  LECCp- 


VERSA 

LEDGER 


The  Versa  Business”  Series 

fh,  VERSABUSINESS  module  can  oe  purchased  and  used  independently, 

(linked  in  any  combination  to  fo  m  a  complete,  coordinated  business  system. 


VERSALEDGER II™  $149.95 

VersaLedger  IF"  is  a  complete  accounting  system  that  grows  as  your  business 
grows.  VersaLedger  1F“  can  be  used  as  a  simple  personal  checkbook  register, 
expanded  to  a  small  business  bookkeeping  system  or  developed  into  a  large 
corporate  general  ledger  system  without  any  additional  software. 

•  VersaLedger  ir™  gives  you  almost  unlimited  storage  capacity 

(300  to  10,000  entries  per  month,  depending  oh  the  system), 

•  stores  all  check  and  general  ledger  information  forever, 

•  prints  tractor-feed  checks, 

•  handles  multiple  checkbooks  and  general  ledgers, 

•  prints  17  customized  accounting  reports  including  check  registers, 
balance  sheets,  income  statements,  transaction  reports,  account 
listings,  etc. 

VersaLedger  IF“  comes  with  a  professionally-written  160  page  manual  de¬ 
signed  for  first-time  users.  The  VersaLedger  ITl'i.manuai  will. ttbjpyou  become; 
quickly  familiar  with  VersaLedger  IF“,  using  complete  sarhpl^dtit4r  fifes 
supplied  on  diskette  and  more  than  50  pages  of  sample  printout^®,  h 


VEBSAKECEIVABLES™  $99.95 

is  a  ^fi^fe'Wnenu-driven  accounts  receivable,  invoicing,  and 
staternent-Qenera|m&asy5tem.  It  keeps  track  of  al!  information  related  to  who 
Qtt  of  your  companw^^^fj  Andean  provide  automatic  billing  for  past  due  ac- 
COiBjts,  VE^RECEIVABLE^Sypi^B  necessary  statements,  invoices,  and  summary 
reports  andean  be  linked  wJ^a^RsALedger  IP  and  VersaInventory™. 

VeRSAPAYABLES™  ”  $99.95 

VERSaPAyAK.ES™  is  designed  to  keep  track  of  current  and  aged  payables,  keeping  you 
In  touch  with  all  information  regarding  how  much  money  your  company  owes,  and  to 
whom.  VERSA  PAYABLES™  maintains  a  complete  record  on  each  vendor,  prints  checks, 
check  registers,  vouchers,  transaction  reports,  aged  payables  reports,  vendor  reports, 
and  more.  With  VERSA  PAYABLES™,  you  can  even  let  your  computer  automatically  select 
which  vouchers  are  to  be  paid. 

VERSAPAYROLL™  $99.95 

A(iERSApAYROtI.™  is  a  powerful  and  sophisticated,  but  easy  to  use  payroll  system  that 
^4?ps‘tfacSkof ^^  all’^v^nhSenf -required  payroll  information.  Complete  employee  records 
at#  maintained,  and  all  necessary  payroll  calculations  are  performed  automatically,  with 
totals  displayed  on  screen  for  operator  approval.  A  payroll  can  be  run  totally,  automati¬ 
cally,  or  the  operator  can  intervene  to  prevent  a  check  from  being  printed,  or  to  alter 
Mbroration  on  it  If  desired,  totals  may  be  posted  to  the  VersaLedger  II™  system. 

VteRSAlNVENTORY7M  $99.95 

vfetSAfriVENTORY1'  is  a  complete  inventory  control  system  that  gives  you  instant  access 
fodSta  on  any  item.  VERSAiNVENTORY™  keeps  track  of  all  information  related  to  what 
ftifcrrvs  ip  stock,  out  of  stock,  on  backorder,  etc.,  stores  sales  and  pricing  data,  alerts 

§u  when  an  item  falls  below  a  preset  reorder  point,  and  allows  you  to  enter  and  print 
fpices  directly  or  to  link  with  the  Versa  Receivables™  system.  VersaInventory™  prints 
deeded  inventory  listings,  reports  of  items  below  reorder  point,  inventory  value  re- 
p&rfc»v,period  and  year-to-date  sales  reports,  price  lists,  inventory  checklists,  etc. 


SATISFACTION  GUARANTEED! 


Every  VERSABUSINESS™  module  is  guaranteed  to  outperform  all  other  competitive  systems, 
and  at  a  fraction  of  their  cost.  If  you  are  not  satisfied  with  any  VERSABUSINESS™  module,  you 
may  return  it  within  30  days  for  a  refund.  Manuals  for  any  VERSABUSINESS™  module  may  be 
purchased  for  $25  each,  credited  toward  a  later  purchase  of  that  module. 


To  Order: 

Write  or  call  Toll-free  (800)  43 1-28 18 

(N.Y.S.  residents  call  914-425-1535) 

*  add  $3  for  shipping  in  UPS  areas  *  add  $5  to  CANADA  or  MEXICO 

*  add  $4  for  C.O.D.  or  non-UPS  areas  *  add  proper  postage  elsewhere 


50  N.  PASCACK  ROAD,  SPRING  VALLEY,  N.Y.  10977  I  All  prices  and  specifications  subje 

w  TRS-80  is  a  trademark  erf  the  Radio  Shack  Division  of  Tandy  Corp-  ■  'APPLE  is  a  trademark  of  Apple  Cotp.  *JBM  is  a  trademark  of  IBM  Co rp. 

*CP/M  is  a  trademark  of  Digital  Research  *)(ERQX  is£  trademark  of  Xerox  Corp. 


ADVERTISING  DIRECTORY 


FREE 

business  software 
directory 

•  Radio  Shack’s  Model  I,  II,  III. 

•  Heath’s  MBASICand  HDOS 

•  CPM:  Xerox,  Alto... 

•  IBM  Personal  Computer 

“  1DM2  is  GREAT  !”  -publisher  of  80-US 

“  (GL)  superior  to  either  the  Osborne  (SBSG  &  Taranto) 
or  Radio  Shack...  MA1L-X  has  a  greater  capacity .. . 
more  flexible  than  (R.S.)” 

-columnist  of  80-microcomputing 

“ imperceptively  fast. ..(DBMS)  is  a  good  and  reliable 
workhorse”  -publisher  of  Interface  Age 


10  ABC  Data  Products . 

59  Adel  Computer  Mart .... 

23  Anitek  Software  Products 

21  Bealin  Corp . 

33  Binary  Devices . 

6  BL&W . 

5,  34-35, 

68  BT  Enterprises . 

Cover  2  The  Business  Division  . . . 

25  Computech . 

61  Computer  Plus . 

12  Computer  Services  of  Danbury  . 

7  Computer  Shopper .  1 


Data  base  manager,  integrated  accounting  package 
(AR,  AP,  GL  &  Payroll),  inventory,  word  proces¬ 
sing,  and  mailing  list.  Compare  and  be  selective  ! 


Micro  Architect,  Inc. 

96  Dothan  St.,  Arlington,  MA  02174 

(617)643-4713 


/  Epson 
Giveaway 


% 


Epson  MX70/80  Cartridges 

<}COOEACH 

Min.  3  of  same  color 

Reloads  $2.50  each  Min.  12 
$30.00  a  Doz.  of  Same  Color 

Cartridges  and  Reloads  Available 
In  Black,  Red,  Green,  Blue,  Brown 


B.T.  Enterprises 
Dept.  2  D 
I0B  Carlough  Rd. 
Bohemia,  N.Y.  11716 


Order  Toll  Free 
800-645-1 165 
NYS  Orders  Call 
516-567-8155 


Prices  Subject  to  Change 

N.Y.S.  Residents  Add  Tax,  Add  S2.00  Shipping  &  Handling 
_B.T.  Enterprises  is  a  division  of  Bi-Tech  Enterprises  Inc. _ 


25  Cosmopolitan  Electronics  Corp. 
61  Data  Systems . 

8  EAPCo . 

10  80  Computer  Services . 

63-67  H  &  E  Computronics .  1 

10,  1 7  J.  E.  S.  Graphics . 

29  Kwik  Software . 

Cover  4  Leading  Edge  Products,  Inc.  .  .  1 

29  Lemons  Tech  Services . 

Cover  3  Memory  Merchant  . 

68  Micro  Architect . 

9  Micro  Images . 

11  Microsette  Co . 

3  Micro  Systems  Software .  1 

14  PAB  Software,  Inc. 

15  Powersoft . 

13  PMC  Software . 

4  Precision  Prototypes . 

31  Software  Options,  Inc .  1 

19  Software  Support  . 

12  Solutions,  Inc . 

8  Swayback  Software . 

14  Triple-D  Software . 

8  Virginia  Micro  Systems . 

59  G.  Wootan 


800-854-1555 

302-492-8463 

305-259-9397 

301-490-2744 

317-842-5020 

901-754-4465 

800-645-1165 
305-862-6917 
201-364-3005 
617-486-3193 
203-744-4644 
-800-327-9920 
.  800-392-3785 
305-788-2145 
817-498-4242 
609-728-3527 
-800-431-2818 
918-742-7104 
417-326-7154 
-800-343-6833 
417-345-7643 
..415-483-1008 
617-643-4713 
212-445-7124 
415-968-1604 
-800-327-8724 

800- 527-7432 
415-968-1604 
512-526-4758 

-800-221-1624 
.  .617-872-9090 
802-229-0368 
609-778-0811 

801- 546-2833 
703-491-6502 
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■CQMPLITRQNICS; 


New  Products. 

80  x  24  VIDEO  BOARD:  Features 
dual  intensity  screen,  programmable 
cursor  control  for  block,  underline  & 
blink  rate,  on-board  bell  with  audible 
keyclick,  battery-operated  real  time 
calendar/clock,  full  ASCII  character 
set  plus  256  special  character 
graphics,  dual  RS-232  outputs  and 
composite  video  output, 

FLOPPY  DISK  CONTROLLER:  Now 
you  can  access  5  Vi  "  and  8"  floppy 
disk  drives  in  any  combination  up  to 
4  drives  of  S/D  density,  S/D  sided. 

Tap  into  a  wealth  of  CP/M  software 
which  comes  on  8"  IBM  3740  format 
or  Pickles  &  Trout  CP/M  for  the  Model 
II. 

SOFTWARE:  Additional  CP/M  soft¬ 
ware  programs  are  available.  Call  or 
write  for  details. 


WordStar  &  MailMerge  are  trademarks  of  MicroPro. 
SuperCalc  is  a  trademark  of  SORCIM. 


dBASE  II  is  a  trademark  of  AshtonTate. 
CP/M  is  a  trademark  of  Digital  Research. 


TRS-80  is  a  trademark  of  Tandy  Corporation. 
IBM  is  a  trademark  of  IBM  Corporation. 


_  Put  64K  CP/M  2.2  in  your 
TRS-80  Model  III  and  tap  into 
2,000  business 


Now  you  can  run  programs  such 
as  WordStar,  dBASE  II, 
SuperCalc,  MailMerge  and  vir¬ 
tually  thousands  of  other  CP/M- 
based  programs  on  your  TRS-80 
Model  III. 

CP/M  2.2  is  the  industry  stan¬ 
dard  operating  system  that  gives 
you  access  right  now  to  over 
2,000  off-the-shelf  business  pro¬ 
grams. 

Our  plug-in  Shuffleboard  III 
comes  with  16K  of  RAM,  giving 
your  Model  III  the  power  of  full 
64K  CP/M  2.2  without  inter¬ 
ference  of  the  ROM  or  video 
memory.  In  fact,  the  Shuffleboard 
will  appear  transparent  in  the 
TRS-80  mode  and  will  not  inter¬ 
fere  with  any  DOS  operation. 
READ  and  WRITE  Osborne, 
Xerox  and  IBM  personal 
computer  software  plus  many 
more  popular  formats. 

Unfortunately,  there  is  no  stan¬ 
dardized  CP/M  format  for  514  " 
diskettes.  But  we  have  developed 
a  way  to  READ/WRITE  and  RUN 
standard  programs  under  the 
following  single-sided  formats: 
Osborne  1  S/D,  Xerox  820  S/D, 

IBM  PC*  D/D  for  CP/M  86  only, 
Superbrain  D/D,  Kapro  II  D/D,  HP 
125  D/D  and  TeleVideo  D/D. 

•Will  Read  and  Write  Only. 

Easy  plug-in  installation. 

It’s  so  simple.  The  Shuffleboard 
III  plugs  into  two  existing  sockets 
inside  your  Model  III.  There  are  no 
permanent  modifications,  no  cut 
traces  and  no  soldering.  You’ll  be 
up  and  running 
in  minutes. 


Bmemofy 
merchant 

14666  Doolittle  Drive  San  Leandro,  CA  94577 
(415)483-1008 


OEM  and  DEALER  inquiries 
invited. 


Introductory  price  of 


The  Shuffleboard  III  comes  fully 
burned-in  and  tested  complete 
with  64K  CP/M  2.2  and  MBASIC 
80  interpreter,  plus  software 
manuals  and  a  first  class  user’s 
manual  —  with  a  1-year  limited 
warranty  and  15-day  no-risk  free 
trial  —  for  only  $299. 

See  the  Shuffleboard  III  at 
your  dealer’s  now. 

Once  you  see  what  the  Shuffle¬ 
board  can  do  for  your  Model  III 
you’ll  want  one  at  once.  If  your 
dealer  does  not  yet  stock  the 
Shuffleboard  have  him  give  us  a 
call.  Or  send  check,  money  order, 
VISA  or  MASTERCARD  number 
(sorry,  no  COD’s)  plus  $5  shipping 
per  board  ($17  outside  the  USA  & 
Canada)*  directly  to  the  address 
below.  Cal.  residents  please  add 
sales  tax.  Credit  card  purchases 
can  be  phoned  in  directly  and 
we’ll  ship  from  stock. 

(415)  483-1008 

•Air  mail  shipments  to  Canada  &  all  other 
countries. 


MORE  HUN  JUST  ANOTHER  PRETTY  FACE. 


Says  who?  Says  ANSI. 

Specifically,  subcommittee  X3B8  of  the  American 
National  Standards  Institute  (ANSI)  says  so.  The  fact 
is  all  Elephant™  floppies  meet  or  exceed  the  specs 
required  to  meet  or  exceed  all  their  standards. 

But  just  who  is  "subcommittee  X3B8"  to  issue  such 
pronouncements? 

They're  a  group  of  people  representing  a  large, 
well-balanced  cross  section  of  disciplines— from 
academia,  government  agencies,  and  the  computer 
industry.  People  from  places  like  IBM,  Hewlett-Packard, 
3M,  Lawrence  Livermore  Labs,  The  U.S.  Department 
of  Defense,  Honeywell  and  The  Association  of  Com¬ 
puter  Programmers  and  Analysts.  In  short,  it’s  a  bunch 
of  high-caliber  nitpickers  whose  mission,  it  seems,  in 
order  to  make  better  disks  for  consumers,  is  also  to 


make  life  miserable  for  everyone  in  the  disk-making 
business. 

How?  By  gathering  together  periodically  (often, 
one  suspects,  under  the  full  moon)  to  concoct  more 
and  more  rules  to  increase  the  quality  of  flexible 
disks.  Their  most  recent  rule  book  runs  over  20  single¬ 
spaced  pages— listing,  and  insisting  upon— hundreds 
upon  hundreds  of  standards  a  disk  must  meet  in 
order  to  be  blessed  by  ANSI.  (And  thereby  be  taken 
seriously  by  people  who  take  disks  seriously.) 

In  fact,  if  you’d  like  a  copy  of  this  formidable  docu¬ 
ment,  for  free,  just  let  us  know  and  well  send  you 
one.  Because  once  you  know  what  it  takes  to  make 
an  Elephant  for  ANSI . . . 

We  think  you’ll  want  us  to  make  some  Elephants 
for  you. 


ELEPHANT  HEAVY  DUTY  DISKS 


For  a  free  poster-size  portrait  of  our  powerful  pachyderm,  please  write  us. 

Distributed  Exclusively  by  Leading  Edge  Products,  Inc.,  225  Turnpike  Street,  Canton,  Massachusetts  02021 
Call:  toll-free  1-800-343-6833;  or  in  Massachusetts  call  collect  (617)  828-8150.  Telex  951-624. 


